From ea7fae6bde95d8783c0698d1bf495726db34aa73 Mon Sep 17 00:00:00 2001 From: Mauro Masiero Date: Fri, 19 Apr 2024 10:24:33 +0200 Subject: [PATCH] fix typo: bring back alert message for error summary; remove browser --- components/board.upload/R/upload_server.R | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/components/board.upload/R/upload_server.R b/components/board.upload/R/upload_server.R index d4b66c328..314c33b6c 100644 --- 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",