Merge pull request #447 from gagneurlab/dev

fix counting summary for only 1 external sample
gagneurlab · Apr 4, 2023 · 4b5f780 · 4b5f780
2 parents 50e89f9 + b353642
commit 4b5f780
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/drop/modules/aberrant-splicing-pipeline/Counting/Summary.R b/drop/modules/aberrant-splicing-pipeline/Counting/Summary.R
@@ -67,8 +67,8 @@ if(has_external){
     localCountIDs <- colData(fdsMerge)[!as.logical(colData(fdsMerge)[,"isExternal"]),"sampleID"]
 
     cts <- K(fdsMerge,"psi5")
-    ctsLocal<- cts[,localCountIDs]
-    ctsExt<- cts[,externalCountIDs]
+    ctsLocal<- cts[,localCountIDs,drop=FALSE]
+    ctsExt<- cts[,externalCountIDs,drop=FALSE]
 
     rowMeanLocal <- rowMeans(ctsLocal)
     rowMeanExt <- rowMeans(ctsExt)