feat: rename abundance/counts.csv

bigomics · Jul 20, 2024 · 01c567a · 01c567a
1 parent 683ac5c
commit 01c567a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/components/board.upload/R/upload_module_preview_counts.R b/components/board.upload/R/upload_module_preview_counts.R
@@ -21,6 +21,7 @@ upload_table_preview_counts_server <- function(
     height,
     title,
     info.text,
+    upload_datatype,
     caption) {
   moduleServer(id, function(input, output, session) {
     ns <- session$ns
@@ -112,7 +113,7 @@ upload_table_preview_counts_server <- function(
             bslib::card(
               fileInputArea(
                 ns("counts_csv"),
-                shiny::h4("Upload abundance.csv", class = "mb-0"),
+                shiny::h4(ifelse(tolower(upload_datatype()) == "proteomics", "Upload abundance.csv", "Upload counts.csv"), class = "mb-0"),
                 multiple = FALSE,
                 accept = c(".csv"),
                 width = "100%"

diff --git a/components/board.upload/R/upload_server.R b/components/board.upload/R/upload_server.R
@@ -884,6 +884,7 @@ UploadBoard <- function(id,
       height = c("100%", TABLE_HEIGHT_MODAL),
       title = ifelse(tolower(upload_datatype()) == "proteomics", "Uploaded Expression", "Uploaded Counts"),
       info.text = "This is the uploaded counts data.",
+      upload_datatype = upload_datatype,
       caption = "This is the uploaded counts data."
     )