fix if all smaples get selected implicitly

LeaSeep · LeaSeep · commit 6d78a367baf9 · 2026-07-02T10:52:24.000+02:00
diff --git a/program/shinyApp/R/util.R b/program/shinyApp/R/util.R
@@ -48,7 +48,7 @@ select_data <- function(
       sample_type <- c(colnames(colData(data)))[1]
   }
   samples_selected <- c()
-  if(any(selected_samples == "all")) {
+  if(any(selected_samples == "all") | length(selected_samples) == ncol(assay(data))) {
     samples_selected <- colnames(assay(data))
   } else {
     samples_selected <- unique(c(

Original file line number	Diff line number	Diff line change
`@@ -48,7 +48,7 @@ select_data <- function(`
`48`	`48`	`sample_type <- c(colnames(colData(data)))[1]`
`49`	`49`	`}`
`50`	`50`	`samples_selected <- c()`
`51`		`- if(any(selected_samples == "all")) {`
	`51`	`+ if(any(selected_samples == "all") \| length(selected_samples) == ncol(assay(data))) {`
`52`	`52`	`samples_selected <- colnames(assay(data))`
`53`	`53`	`} else {`
`54`	`54`	`samples_selected <- unique(c(`