From a3be9f29487bd71ad0463a263b4941e58c0c7c77 Mon Sep 17 00:00:00 2001
From: HectorRDB <hector.rouxdebezieux@berkeley.edu>
Date: Mon, 25 Nov 2024 21:49:52 +0100
Subject: [PATCH] Fix # 16

---
 R/topologyTest.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/topologyTest.R b/R/topologyTest.R
index 521975c..86ec2b6 100755
--- 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))