Fixed groupSingleton bug

mvfki · Nov 15, 2023 · cb345dd · cb345dd
1 parent 17d3289
commit cb345dd
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/clustering.R b/R/clustering.R
@@ -222,10 +222,10 @@ groupSingletons <- function(
     names(connectivity) <- clusterNames
     ids <- as.character(ids)
     for (i in singletons) {
-        i.cells <- names(which(ids == i))
+        i.cells <- which(ids == i)
         for (j in clusterNames) {
-            j.cells <- names(which(ids == j))
-            subSNN <- SNN[i.cells, j.cells]
+            j.cells <- which(ids == j)
+            subSNN <- SNN[i.cells, j.cells, drop = FALSE]
             # to match previous behavior, random seed being set in WhichCells
             set.seed(1)
             if (is.object(subSNN))