fixed ridgeplot() when selecting a specific gene set and plotting n…

…on-core genes, #298
YuLab-SMU · Nov 6, 2024 · 594d61d · 594d61d
1 parent e008020
commit 594d61d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/ridgeplot.R b/R/ridgeplot.R
@@ -47,7 +47,7 @@ ridgeplot.gseaResult <- function(x, showCategory=30, fill="p.adjust",
     if (core_enrichment) {
         gs2id <- geneInCategory(x)[selected]
     } else {
-        gs2id <- x@geneSets[x$ID[selected]]
+        gs2id <- x@geneSets[x$ID %in% selected]
     }
 
     if (x@readable && length(x@gene2Symbol) > 0) {