add missing options to setMethod

gagneurlab · Feb 9, 2024 · c2a76c1 · c2a76c1
1 parent 2bdeb13
commit c2a76c1
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/R/AllGenerics.R b/R/AllGenerics.R
@@ -313,6 +313,8 @@ subset.FRASER <- function(x, i, j, by=c("j", "ss"), drop=FALSE){
 #' @rdname subset
 #' @export
 setMethod("[", c("FraserDataSet", "ANY", "ANY"), subset.FRASER)
+setMethod("[", c("FraserDataSet", "ANY", "missing"), subset.FRASER)
+setMethod("[", c("FraserDataSet", "missing", "ANY"), subset.FRASER)
 
 
 #'

diff --git a/R/countRNAseqData.R b/R/countRNAseqData.R
@@ -231,7 +231,7 @@ getSplitReadCountsForAllSamples <- function(fds, NcpuPerSample=1,
                     "remove this folder: \n", outDir)
             # create summarized object for counts
             h5 <- saveAsHDF5(fds, "rawCountsJ", 
-                            assay(splitCounts)[,samples(fds)])
+                            assay(splitCounts)[,samples(fds),drop=FALSE])
             colnames(h5) <- samples(fds)
             final_splitCounts <- SummarizedExperiment(
                 colData=colData(fds),