Fixed bugs in EnrichmentPlot

zhanghao-njmu · Sep 13, 2023 · 1f0f44a · 1f0f44a
1 parent 3838101
commit 1f0f44a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/SCP-plot.R b/R/SCP-plot.R
@@ -12713,6 +12713,7 @@ EnrichmentPlot <- function(srt, db = "GO_BP", group_by = NULL, test.use = "wilco
     res <- res[res[["Groups"]] %in% group_use, , drop = FALSE]
   }
   if (length(id_use) > 0) {
+    metric <- ifelse(is.null(padjustCutoff), "pvalue", "p.adjust")
     pvalueCutoff <- Inf
     padjustCutoff <- Inf
     compare_only_sig <- FALSE