fix errors when using only 1 local sample

gagneurlab · Apr 6, 2023 · 25ad87a · 25ad87a
1 parent 430479c
commit 25ad87a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/drop/modules/aberrant-expression-pipeline/Counting/Summary.R b/drop/modules/aberrant-expression-pipeline/Counting/Summary.R
@@ -34,7 +34,7 @@ suppressPackageStartupMessages({
 ods <- readRDS(snakemake@input$ods)
 
 has_external <- any(as.logical(colData(ods)$isExternal))
-cnts_mtx_local <- counts(ods, normalized = F)[,!as.logical(ods@colData$isExternal)]
+cnts_mtx_local <- counts(ods, normalized = F)[,!as.logical(ods@colData$isExternal),drop=FALSE]
 cnts_mtx <- counts(ods, normalized = F)
 
 #' ## Number of samples:  

diff --git a/drop/modules/aberrant-splicing-pipeline/config.R b/drop/modules/aberrant-splicing-pipeline/config.R
@@ -27,7 +27,7 @@ extract_params <- function(params) {
     unlist(params)[1]
 }
 
-options("FRASER.maxSamplesNoHDF5"=1)
+options("FRASER.maxSamplesNoHDF5"=0)
 options("FRASER.maxJunctionsNoHDF5"=-1)
 
 h5disableFileLocking()