scale pie nodes, #301

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: enrichplot
 Title: Visualization of Functional Enrichment Result
-Version: 1.27.1.005
+Version: 1.27.1.006
 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")))

NEWS.md

@@ -1,11 +1,9 @@
-# enrichplot 1.27.1.005
+# enrichplot 1.27.1.006
 
 + `emapplot()` now allows passing color to a specific color, e.g., color = "black" (2024-11-29, Fri, #300)
 + bug fixed in `emapplot()` 
+  - `size_category` now works for pie node (2024-11-29, Fri, #301)
   - legend of term nodes will be retained when `group = TRUE` (2024-11-29, Fri, #300)
-
-# enrichplot 1.27.1.004
-
 + supports passing ID to 'showCategory' in `ridgeplot()` (2024-11-06, Wed, #295)
 + enhancement of `cnetplot()` (2024-11-06, Wed)
   - 'node_label' can be a vector of selected items/genes to specify the items to be displayed (#293)

R/emapplot.R

@@ -86,7 +86,7 @@ emapplot_internal <- function(
     p <- ggplot(g, layout = layout) + geom_edge(color = color_edge, size = size_edge) 
 
     if (inherits(x, 'compareClusterResult')) {
-        p <- add_node_pie(p, gg$data, pie)
+        p <- add_node_pie(p, gg$data, pie, pie_scale=size_category)
     } else {
         if (color %in% names(as.data.frame(x))) {
             p <- p %<+% x[, c("Description", color)] +