From 7340804a828b73f894f648c571b5ebdb64ca44d4 Mon Sep 17 00:00:00 2001 From: Guangchuang Yu Date: Fri, 20 Dec 2024 12:17:30 +0800 Subject: [PATCH] cleanup code --- R/emapplot_utilities.R | 10 +--------- 1 file changed, 1 insertion(+), 9 deletions(-) diff --git a/R/emapplot_utilities.R b/R/emapplot_utilities.R index c3fd08e..941fda9 100644 --- a/R/emapplot_utilities.R +++ b/R/emapplot_utilities.R @@ -239,15 +239,7 @@ get_label_location <- function(ggData, label_format) { } -# ##' Add node label to a ggplot2 object -# ##' -# ##' @param p a ggplot2 object. -# ##' @param data it is uesd as the `data` parameter of function `ggraph::geom_node_text`, a data.frame or NULL. -# ##' @param label_size_node a numeric value to indicate the font size of the node label. -# ##' @param cex_label_node a numeric value to indicate the scale of node label size. -# ##' @param shadowtext a logical value, whether to use shadow font. -# ##' @return a ggplot2 object. -# ##' @noRd + # add_node_label <- function(p, data, label_size_node, cex_label_node, shadowtext) { # # If use 'aes_(alpha =~I(alpha))' will put an error for AsIs object. # # But I(alpha) is necessory, so use 'alpha = I(data$alpha)'.