From c133d6b3b88633bc46aece5f6375485f19eab5f2 Mon Sep 17 00:00:00 2001
From: Diego Diez <diego10ruiz@gmail.com>
Date: Thu, 18 Jul 2024 23:32:13 +0900
Subject: [PATCH] More fixes.

---
 R/pseudobulk.R | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/R/pseudobulk.R b/R/pseudobulk.R
index e0cbb03..a83d2a6 100644
--- a/R/pseudobulk.R
+++ b/R/pseudobulk.R
@@ -59,10 +59,11 @@ pseudobulk.Seurat <- function(x, split.by, group.by, samples=NULL, genes=NULL, a
   })
 
   dge <- lapply(names(xl), function(n) {
-    s <- samples
-    s$cluster <- n
-    tmp <- edgeR::DGEList(xl[[n]], samples=s)
-    tmp$genes <- genes
+    #s <- samples
+    #s$cluster <- n
+    tmp <- edgeR::DGEList(xl[[n]], samples=samples, genes=genes)
+    tmp$samples$cluster <- n
+    #tmp$genes <- genes
     #colnames(tmp) <- unname(colnames(tmp))
     tmp
   })