fix Fix gsea enplot for composite feature (proteins) ID

bigomics · Jan 8, 2025 · 2fc822c · 2fc822c
1 parent 53fa970
commit 2fc822c
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/components/board.enrichment/R/enrichment_plot_compare.R b/components/board.enrichment/R/enrichment_plot_compare.R
@@ -80,6 +80,11 @@ enrichment_plot_compare_server <- function(id,
 
           gs1 <- playbase::breakstring(gset, 28, 50, force = FALSE)
           cmp <- paste0(gset, "\n@", cmp)
+
+          names(rnk0) <- unlist(lapply(names(rnk0), function(x) {
+            x0 = strsplit(x, "_")[[1]]
+            return(x0[length(x0)])
+          }))
 
           playbase::gsea.enplot(
             rnk0,
@@ -109,6 +114,11 @@ enrichment_plot_compare_server <- function(id,
           gs1 <- playbase::breakstring(gset, 28, 50, force = FALSE)
           cmp <- paste0(gset, "\n@", cmp)
 
+          names(rnk0) <- unlist(lapply(names(rnk0), function(x) {
+            x0 = strsplit(x, "_")[[1]]
+            return(x0[length(x0)])
+          }))
+
           playbase::gsea.enplot(
             rnk0,
             genes,