droplevels in the blockCol, closes #19 (#27)

waldronlab · Oct 20, 2023 · dd93ecf · dd93ecf
1 parent ae0b752
commit dd93ecf
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/lefser.R b/R/lefser.R
@@ -290,7 +290,8 @@ lefser <-
     relab_sub <- filterKruskal(relab = relab_data, group = groupf, p.value = kruskal.threshold)
 
     if (!is.null(blockCol)) {
-        block <- as.factor(colData(relab)[[blockCol]])
+        block <- as.factor(colData(expr)[[blockCol]])
+        block <- droplevels(block)
         relab_sub <- fillPmatZmat(group = groupf, block = block, relab_sub = relab_sub, p.threshold = wilcox.threshold)
     }