Attempt to fix bug

mvfki · Oct 31, 2023 · a950117 · a950117
1 parent 9e2db23
commit a950117
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/R/subsetObject.R b/R/subsetObject.R
@@ -175,9 +175,10 @@ retrieveCellFeature <- function(
         #if (all(sapply(value, function(x) dim(x)[1] == 0)))
         #    stop("No feature could be retrieved. ",
         #         "Please check feature names or slot")
-        subsetData <- lapply(subsetData, t)
-        subsetData <- Reduce(rbind, subsetData)
-        subsetData <- as.data.frame(as.matrix(subsetData))
+        # subsetData <- lapply(subsetData, t)
+        # subsetData <- Reduce(rbind, subsetData)
+        subsetData <- mergeSparseAll(subsetData, mode = "union")
+        subsetData <- as.data.frame(as.matrix(t(subsetData)))
         value <- subsetData[colnames(object)[cellIdx], , drop = FALSE]
     } else if (slot == "H") {
         value <- Reduce(cbind, getMatrix(object, "H"))