From 5c6cd677761638077e22e229d8a00ba6323e78dc Mon Sep 17 00:00:00 2001
From: LiNk-NY <marcel.ramosperez@roswellpark.org>
Date: Fri, 20 Oct 2023 17:07:40 -0400
Subject: [PATCH] bug fix: expr to relab from resolved conflict

---
 R/lefser.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/lefser.R b/R/lefser.R
index a9ce6c1..b03b372 100644
--- a/R/lefser.R
+++ b/R/lefser.R
@@ -290,7 +290,7 @@ lefser <-
     relab_sub <- filterKruskal(relab = relab_data, group = groupf, p.value = kruskal.threshold)
 
     if (!is.null(blockCol)) {
-        block <- as.factor(colData(expr)[[blockCol]])
+        block <- as.factor(colData(relab)[[blockCol]])
         block <- droplevels(block)
         relab_sub <- fillPmatZmat(group = groupf, block = block, relab_sub = relab_sub, p.threshold = wilcox.threshold)
     }