From e8d9613650ab54055aff0b5c6f61c0dad700d10e Mon Sep 17 00:00:00 2001 From: JoseCorCab Date: Wed, 11 Sep 2024 13:12:40 +0200 Subject: [PATCH] changes in enrichplot managed --- R/functional_analysis_library.R | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/R/functional_analysis_library.R b/R/functional_analysis_library.R index c8f7aa9..8eb6a70 100644 --- a/R/functional_analysis_library.R +++ b/R/functional_analysis_library.R @@ -1255,11 +1255,7 @@ enrich_density <- function(enrich_result, showCategory = 30) { terms_attr <- get_attr_by_terms(enrich_result, attributes) - enrich_result <- enrichplot:::fortify.internal( - enrich_result, - showCategory = showCategory, - by = "p.adjust", - ) + enrich_result <- enrichplot:::fortify.enrichResult(enrich_result,showCategory = showCategory,by = "p.adjust") enriched_dist <- merge(terms_attr, enrich_result, by ="ID", all.y = TRUE) plot <- ggplot2::ggplot(enriched_dist, ggplot2::aes(x = attribute,