Merge pull request #1617 from bigomics/replace-scRNAseq-exampledata

Replace scRNA-seq example counts, samples, contrasts.

Author: zitoa

components/board.upload/R/upload_module_preview_contrasts.R

@@ -371,7 +371,7 @@ upload_table_preview_contrasts_server <- function(
 
     observeEvent(input$load_example, {
       if (upload_datatype() == "scRNA-seq") {
-        ctx <- playbase::CONTRASTS_scRNAseq
+        ctx <- playdata::GSE243639_scRNAseq_contrasts
       } else {
         ctx <- playbase::CONTRASTS
       }

components/board.upload/R/upload_module_preview_counts.R

@@ -744,7 +744,7 @@ upload_table_preview_counts_server <- function(id,
           text = "Olink NPX example data not yet available. Please upload yours or change data type."
         )
       } else if (upload_datatype() == "scRNA-seq") {
-        uploaded$counts.csv <- playbase::COUNTS_scRNAseq
+        uploaded$counts.csv <- playdata::GSE243639_scRNAseq_counts
       } else {
         uploaded$counts.csv <- playbase::COUNTS
       }

components/board.upload/R/upload_module_preview_samples.R

@@ -396,7 +396,7 @@ upload_table_preview_samples_server <- function(
     observeEvent(input$load_example, {
       df <- playbase::SAMPLES
       if (upload_datatype() == "multi-omics") df <- playbase::SAMPLES_MO
-      if (upload_datatype() == "scRNA-seq") df <- playbase::SAMPLES_scRNAseq
+      if (upload_datatype() == "scRNA-seq") df <- playdata::GSE243639_scRNAseq_samples
       uploaded$samples.csv <- df
       loaded_samples(TRUE)
       orig_sample_matrix(df)