Fix pseudobulk when no samples data.frame is passed.

ddiez · Jul 18, 2024 · 1e64649 · 1e64649
1 parent 7a29eb1
commit 1e64649
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/pseudobulk.R b/R/pseudobulk.R
@@ -40,7 +40,9 @@ pseudobulk.Seurat <- function(x, split.by, group.by, samples=NULL, genes=NULL, a
   if (is.null(samples)) {
     samples <- x[[]][[group.by]]
     if (!is.factor(samples))
-      samples <- levels(factor(samples))
+      samples <- factor(samples)
+
+    samples <- levels(samples)
     samples <- data.frame(row.names=samples)
   }