From 8546b6f2df4eb914766040801cbc94b9e9b837e5 Mon Sep 17 00:00:00 2001 From: Guangchuang Yu Date: Fri, 20 Dec 2024 12:17:49 +0800 Subject: [PATCH] cleanup code --- R/emapplot_utilities.R | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/R/emapplot_utilities.R b/R/emapplot_utilities.R index e580add..9cf010d 100644 --- a/R/emapplot_utilities.R +++ b/R/emapplot_utilities.R @@ -323,19 +323,6 @@ add_ellipse <- function(p, group_legend, label_style, return(p) } -# add_ellipse <- function(p, group_legend, label_style) { -# show_legend <- c(group_legend, FALSE) -# names(show_legend) <- c("fill", "color") -# if (label_style == "shadowtext") { -# p <- p + ggforce::geom_mark_ellipse(aes_(x =~ x, y =~ y, color =~ color2, -# fill =~ color2), show.legend = show_legend) -# } else { -# p <- p + ggforce::geom_mark_ellipse(aes_(x =~ x, y =~ y, color =~ color2, -# fill =~ color2, label =~ color2), show.legend = show_legend) -# } -# if (group_legend) p <- p + scale_fill_discrete(name = "groups") -# return(p) -# } # ##' add category nodes