feat: enables upload of paramsRData file for debugging

components/board.upload/R/upload_module_preview_counts.R

@@ -234,7 +234,7 @@ upload_table_preview_counts_server <- function(
 
       # check if counts is csv (necessary due to drag and drop of any file)
       ext <- tools::file_ext(input$counts_csv$name)
-      if (!all(ext == "csv")) {
+      if (!all(ext %in% c("csv","RData"))) {
         shinyalert::shinyalert(
           title = "File format not supported.",
           text = "Please make sure the file is a CSV file.",
@@ -244,7 +244,7 @@ upload_table_preview_counts_server <- function(
       }
 
       # if counts not in file name, give warning and return
-      if (!any(grepl("count|expression|abundance", tolower(input$counts_csv$name)))) {
+      if (!any(grepl("count|expression|abundance|params.rdata", tolower(input$counts_csv$name)))) {
         shinyalert::shinyalert(
           title = tspan("Counts not in filename."),
           text = tspan("Please make sure the file name contains 'counts', such as counts_dataset.csv or counts.csv."),
@@ -270,6 +270,22 @@ upload_table_preview_counts_server <- function(
         df <- playbase::read_contrasts(input$counts_csv$datapath[sel[1]])
         uploaded$contrasts.csv <- df
       }
+
+      sel <- grep("params.RData", input$counts_csv$name)
+      if (length(sel)) {
+        params <- readRDS(input$counts_csv$datapath[sel[1]])
+        uploaded$samples.csv <- params$samples
+        uploaded$contrasts.csv <- params$contrasts
+        uploaded$counts.csv <- params$counts
+        ## recompute_info(
+        ##   list(
+        ##     "name" = params$name,
+        ##     "description" = params$description
+        ##   )
+        ## )
+      }
+
+
     })
 
     observeEvent(input$remove_counts, {

components/board.upload/R/upload_server.R

@@ -19,7 +19,6 @@ UploadBoard <- function(id,
 
     # Some 'global' reactive variables used in this file
     uploaded <- shiny::reactiveValues()
-    ##    checked   <- shiny::reactiveValues()
     checklist <- shiny::reactiveValues()
     # this directory is used to save pgx files, logs, inputs, etc..
     raw_dir <- reactiveVal(NULL)