cleanup code

YuLab-SMU · Dec 20, 2024 · 8546b6f · 8546b6f
1 parent dd31988
commit 8546b6f
Showing 1 changed file with 0 additions and 13 deletions.
diff --git 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