diff --git a/components/board.enrichment/R/enrichment_plot_compare.R b/components/board.enrichment/R/enrichment_plot_compare.R index 61ac8265d..20d9c97d7 100644 --- 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,