fix issue with comparison in the filename triggering invalid input

bigomics · Apr 18, 2024 · d44ba35 · d44ba35
1 parent afd6e33
commit d44ba35
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/components/board.upload/R/upload_module_preview.R b/components/board.upload/R/upload_module_preview.R
@@ -673,7 +673,7 @@ upload_table_preview_contrasts_server <- function(
     observeEvent(input$contrasts_csv, {
 
       # if contrasts not in file name, give warning and return
-      if(!grepl("contrast", input$contrasts_csv$name, ignore.case = TRUE)){
+      if(!grepl("contrast", input$contrasts_csv$name, ignore.case = TRUE) && !grepl("comparison", input$contrasts_csv$name, ignore.case = TRUE)){
         shinyalert::shinyalert(
           title = "Comparison not in filename.",
           text = "Please make sure the file name contains 'comparison', such as comparison_dataset.csv or comparison.csv.",