Revert "Revert "bugfix compare number prop""

This reverts commit b7ee6904

inst/shiny-landsepi/server.R

@@ -20,17 +20,17 @@ server <- function(input, output, session) {
   # Test if the cultivars proportion sum is 1
   ProportionValidation <- function () {
     if (input$demo == "RO") {
-      sum <-
+      sum_prop <-
         ((input$prop0 + input$prop1) + (input$prop0 + input$prop2)) / 2
     }
     else {
-      sum <- input$prop0 + input$prop1 + input$prop2
+      sum_prop <- input$prop0 + input$prop1 + input$prop2
     }
     
     shinyjs::enable(id = "generateLandscape")
     shiny::removeUI(selector = "#propError")
-    if (sum != 1 ||
-        is.na(sum)) {
+    if (!isTRUE(all.equal(sum_prop,1)) ||
+        is.na(sum_prop)) {
       shiny::insertUI(
         selector = "#generateLandscape",
         where = "afterEnd",