a safe way to extract gene sets in ridgeplot(), #303

YuLab-SMU · Dec 12, 2024 · e636259 · e636259
1 parent 2898ac3
commit e636259
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: enrichplot
 Title: Visualization of Functional Enrichment Result
-Version: 1.27.2
+Version: 1.27.2.001
 Authors@R: c(
     person(given = "Guangchuang", family = "Yu", email = "[email protected]",   role  = c("aut", "cre"), comment = c(ORCID = "0000-0002-6485-8781")),
     person(given = "Chun-Hui", family = "Gao", email = "[email protected]", role = "ctb", comment = c(ORCID = "0000-0002-1445-7939")))

diff --git a/NEWS.md b/NEWS.md
@@ -1,3 +1,7 @@
+# enrichplot 1.27.2.001
+
++ a safe way to extract gene sets in `ridgeplot()` (2024-12-12, Thu)
+
 # enrichplot 1.27.2
 
 + `emapplot()` now allows passing color to a specific color, e.g., color = "black" (2024-11-29, Fri, #300)

diff --git a/R/ridgeplot.R b/R/ridgeplot.R
@@ -51,7 +51,7 @@ ridgeplot.gseaResult <- function(x, showCategory=30, fill="p.adjust",
     if (core_enrichment) {
         gs2id <- geneInCategory(x)[selected]
     } else {
-        gs2id <- x@geneSets[x$ID %in% selected]
+        gs2id <- x@geneSets[names(x@geneSets) %in% selected]
     }
 
     if (x@readable && length(x@gene2Symbol) > 0) {