deprecated aes_string() replaced by aes()

kassambara · Oct 29, 2024 · b7c4fae · b7c4fae
1 parent c7ff628
commit b7c4fae
Show file tree

Hide file tree

Showing 4 changed files with 4 additions and 2 deletions.
diff --git a/NAMESPACE b/NAMESPACE
@@ -53,6 +53,8 @@ importFrom(grDevices,axisTicks)
 importFrom(magrittr,"%>%")
 importFrom(methods,is)
 importFrom(purrr,map)
+importFrom(rlang,"!!")
+importFrom(rlang,sym)
 importFrom(rlang,syms)
 importFrom(stats,anova)
 importFrom(stats,approx)

diff --git a/R/ggsurvplot_df.R b/R/ggsurvplot_df.R
@@ -176,7 +176,7 @@ ggsurvplot_df <- function(fit, fun = NULL,
   #::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
   df[, .strata.var] <- factor( df[, .strata.var], levels = .levels(.strata), labels = legend.labs)
 
-  p <- ggplot2::ggplot(df, ggplot2::aes_string("time", "surv")) +
+  p <- ggplot2::ggplot(df, ggplot2::aes(x = !!sym("time"), y = !!sym("surv"))) +
     ggpubr::geom_exec(surv.geom, data = df, size = size, color = color, linetype = linetype, ...) +
     ggplot2::scale_y_continuous(breaks = y.breaks, labels = scale_labels, limits = ylim, expand = .expand) +
     ggplot2::coord_cartesian(xlim = xlim)+

diff --git a/R/utilities.R b/R/utilities.R
@@ -10,6 +10,7 @@
 #' @importFrom stats pchisq
 #' @importFrom survMisc ten comp
 #' @importFrom utils capture.output
+#' @importFrom rlang !! sym
 
 
 # Count the number of ggplots in a list

diff --git a/man/ggsurvplot_df.Rd b/man/ggsurvplot_df.Rd