From 7be4f88626d690e6ac6a2781d2811011ba4bd2a0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Aur=C3=A9lie=20Siberchicot?= Date: Wed, 9 Oct 2024 11:05:36 +0200 Subject: [PATCH] Update DRomicsInterpreter shiny app: update some texts when importing data --- inst/DRomicsInterpreter-shiny/server.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/inst/DRomicsInterpreter-shiny/server.R b/inst/DRomicsInterpreter-shiny/server.R index c1f6874..c69c838 100644 --- a/inst/DRomicsInterpreter-shiny/server.R +++ b/inst/DRomicsInterpreter-shiny/server.R @@ -111,7 +111,7 @@ server <- function(input, output, session) { myexpr <- paste0("input$annotationData", idlev, "$datapath") sep <- if(input$sep_annotationData) "'\t'" else "''" validate( - need(try(annotationDF <- eval(parse(text = paste0("read.table(", myexpr, ", header = TRUE, stringsAsFactors = TRUE, sep = ", sep, ")")))), "Error reading the file") + need(try(annotationDF <- eval(parse(text = paste0("read.table(", myexpr, ", header = TRUE, stringsAsFactors = TRUE, sep = ", sep, ")")))), "Error reading the file containing annotation data.") ) validate( need(length(colnames(annotationDF)) == 2, paste0("Your annotation data at level ", idlev," set must have exactly two columns.\nPlease update your imported data."))