diff --git a/components/board.upload/R/upload_module_preview_contrasts.R b/components/board.upload/R/upload_module_preview_contrasts.R index 4bd205d21..232c2e3e3 100644 --- a/components/board.upload/R/upload_module_preview_contrasts.R +++ b/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 } diff --git a/components/board.upload/R/upload_module_preview_counts.R b/components/board.upload/R/upload_module_preview_counts.R index 2a953b9c0..f2453ecba 100644 --- a/components/board.upload/R/upload_module_preview_counts.R +++ b/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 } diff --git a/components/board.upload/R/upload_module_preview_samples.R b/components/board.upload/R/upload_module_preview_samples.R index e85100a2c..b2a9cc942 100644 --- a/components/board.upload/R/upload_module_preview_samples.R +++ b/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)