I should fix create at some point...

diff --git a/R/loom.R b/R/loom.R
index 680d868fed69e51da38e6f261703bb934695e959..b12e9b9555c43f59eac987466e9a1be929a538a1 100644 (file)
--- a/R/loom.R
+++ b/R/loom.R
@@ -1001,7 +1001,8 @@ subset.loom <- function(
   # Make the loom file
   new.loom <- create(
     filename = filename,
-    data = t(x = x[['matrix']][n, m]),
+    # data = t(x = x[['matrix']][n, m]),
+    data = x[['matrix']][n, m],
     overwrite = overwrite
   )
   # Add row attributes