Add input validation to estimators

[Rnaught] / inst / app / scripts / data.R

diff --git a/inst/app/scripts/data.R b/inst/app/scripts/data.R
index c85e27b057ed6fc2b6dd18d9ff4a065d1892ba27..8f8694c2957b276c1b8b2533383194ea003f6f74 100644 (file)
--- a/inst/app/scripts/data.R
+++ b/inst/app/scripts/data.R
@@ -141,9 +141,7 @@ validate_data <- function(input, output, react_values, data_source) {
         # corresponding columns in the estimates table.
         update_estimates_cols(new_rows, react_values)
 
         # corresponding columns in the estimates table.
         update_estimates_cols(new_rows, react_values)
 

-        showNotification("Datasets added successfully.",
-          duration = 3, id = "notify-success"
-        )
+        showNotification("Datasets added successfully.", duration = 3)

       }
     },
     error = function(e) {
       }
     },
     error = function(e) {


@@ -195,9 +193,7 @@ load_samples <- function(input, output, react_values) {
       # corresponding columns in the estimates table.
       update_estimates_cols(new_rows, react_values)
 
       # corresponding columns in the estimates table.
       update_estimates_cols(new_rows, react_values)
 

-      showNotification("Datasets added successfully.",
-        duration = 3, id = "notify-success"
-      )
+      showNotification("Datasets added successfully.", duration = 3)

     }
   })
 }
     }
   })
 }