fix typo: bring back alert message for error summary; remove browser

bigomics · Apr 19, 2024 · ea7fae6 · ea7fae6
1 parent 4673ee9
commit ea7fae6
Showing 1 changed file with 11 additions and 5 deletions.
diff --git a/components/board.upload/R/upload_server.R b/components/board.upload/R/upload_server.R
@@ -554,9 +554,7 @@ UploadBoard <- function(id,
           checklist$contrasts.csv$checks,
           checklist$samples_counts$checks,
           checklist$samples_contrasts$checks
-          )
-
-        browser()
+        )
 
         summary_check_content <- length(unlist(summary_checks, recursive = FALSE))
 
@@ -588,9 +586,17 @@ UploadBoard <- function(id,
                   pass_msg = "All counts checks passed",
                   null_msg = "Fix any errors with your input first."
             )
-          } 
+
+            # return shiny alert with result_alert
+            shinyalert::shinyalert(
+              title = "Please review your input:",
+              text = result_alert,
+              type = "error",
+              html = TRUE
+            )
+          }
         }
-        
+
         if (summary_check_content == 0) {
           shinyalert::shinyalert(
             title = "Upload wizard locked",