Added notifications re. issue #21

AEBilgrau · Feb 12, 2019 · 576ccae · 576ccae
1 parent 508bf88
commit 576ccae
Showing 1 changed file with 25 additions and 0 deletions.
diff --git a/inst/shiny/server.R b/inst/shiny/server.R
@@ -201,6 +201,30 @@ shinyServer(function(input, output, session) {
   })
 
 
+  # Notifications ----
+  observe({
+    if (is.null(user_data())) {
+      showNotification(
+        ui = "No data uploaded...",
+        duration = NULL,
+        type = "error",
+        id = "no_data_note"
+      )
+    } else {
+      if (is.null(input$model_cols)) {
+        showNotification(
+          ui = "Please select at least two data columns to use in the model",
+          duration = NULL,
+          type = "warning",
+          id = "no_selected_cols"
+        )
+      } else {
+        removeNotification(id = "no_selected_cols")
+      }
+
+      removeNotification(id = "no_data_note")
+    }
+  })
 
 
 
@@ -213,6 +237,7 @@ shinyServer(function(input, output, session) {
   full_fit_log <- reactiveVal()
   full_output_dataset <- reactiveVal()
 
+
   # Randomize start theta
   observeEvent(input$full_random_theta, {
     req(rv$m)