Fix # 16

HectorRDB · Nov 25, 2024 · a3be9f2 · a3be9f2
1 parent 483ec15
commit a3be9f2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/topologyTest.R b/R/topologyTest.R
@@ -214,10 +214,10 @@
   order <- rownames(sds)
   if (is.null(order)) order <- rownames(reducedDim(sds))
   permutations <- lapply(permutations, function(perm){
-    lapply(perm, function(dat) dat[order, ]) %>% return()
+    lapply(perm, function(dat) dat[order, , drop = FALSE]) %>% return()
   })
   og <- lapply(og, function(dat){
-    return(dat[order, ])
+    return(dat[order, , drop = FALSE])
   })
 
   return(list("og" = og, "permutations" = permutations))