From 53d9d9af5e3f957e1ce867576182b1fdc02ba3fc Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Mon, 14 Oct 2024 18:17:11 +0000 Subject: [PATCH 01/17] commit --- DESCRIPTION | 1 + 1 file changed, 1 insertion(+) diff --git a/DESCRIPTION b/DESCRIPTION index 013a15d..2ce8ae9 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -54,3 +54,4 @@ Language: en-US LazyData: true Roxygen: list(markdown = TRUE) RoxygenNote: 7.3.1 + From 13246ff12200902785a13e43ed022dd8b5144dc8 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Mon, 14 Oct 2024 18:17:56 +0000 Subject: [PATCH 02/17] commit --- DESCRIPTION | 1 - 1 file changed, 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 2ce8ae9..013a15d 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -54,4 +54,3 @@ Language: en-US LazyData: true Roxygen: list(markdown = TRUE) RoxygenNote: 7.3.1 - From 49eb7798313aa83250f8d1a4b6cf4972d0f2c957 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Wed, 16 Oct 2024 18:31:36 +0000 Subject: [PATCH 03/17] commit --- R/scale_ggsurvfit.R | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/R/scale_ggsurvfit.R b/R/scale_ggsurvfit.R index 4947f2f..d2969c6 100644 --- a/R/scale_ggsurvfit.R +++ b/R/scale_ggsurvfit.R @@ -34,8 +34,19 @@ #' # specify additional scales #' ggsurvfit + #' scale_ggsurvfit(x_scales = list(breaks = seq(0, 8, by = 2))) +#' +#' # Specical case: in the risk table, large numbers (with more than 4 digits) may not +#' # be shown completely, with some digits truncated outside the plot region. +#' # To remedy this, consider the following example code for a simulated large-size survival dataset: +#' # Here, adjust the size in `add_risktable(size = 2.5)` (as an example) can decrease the font size of the risk table +#' # and make the numbers all fit in the plot region. The scale of the `size` argument differs by cases. +#' ggsurvfit <- +#' survfit2(Surv(time, status) ~ surg, data = df_colon[sample(1:nrow(df_colon), size = 15*nrow(df_colon), replace = TRUE), ]) %>% +#' ggsurvfit() + add_risktable(size = 2.5) + +#' scale_ggsurvfit() #' @inherit ggsurvfit seealso -scale_ggsurvfit <- function(x_scales = list(), y_scales = list()){ +scale_ggsurvfit <- + function(x_scales = list(), y_scales = list()){ scale_ggsurvfit_empty_list <- list() structure(scale_ggsurvfit_empty_list, x_scales = x_scales, y_scales = y_scales, class = "scale_ggsurvfit") } From f69874215629c79395e0ce091a5c9910c895fe73 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Wed, 16 Oct 2024 18:33:58 +0000 Subject: [PATCH 04/17] commit --- R/scale_ggsurvfit.R | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/R/scale_ggsurvfit.R b/R/scale_ggsurvfit.R index d2969c6..0961f90 100644 --- a/R/scale_ggsurvfit.R +++ b/R/scale_ggsurvfit.R @@ -40,10 +40,10 @@ #' # To remedy this, consider the following example code for a simulated large-size survival dataset: #' # Here, adjust the size in `add_risktable(size = 2.5)` (as an example) can decrease the font size of the risk table #' # and make the numbers all fit in the plot region. The scale of the `size` argument differs by cases. -#' ggsurvfit <- -#' survfit2(Surv(time, status) ~ surg, data = df_colon[sample(1:nrow(df_colon), size = 15*nrow(df_colon), replace = TRUE), ]) %>% -#' ggsurvfit() + add_risktable(size = 2.5) + -#' scale_ggsurvfit() +#' ggsurvfit <- +#' survfit2(Surv(time, status) ~ surg, data = df_colon[sample(1:nrow(df_colon), size = 15*nrow(df_colon), replace = TRUE), ]) %>% +#' ggsurvfit() + add_risktable(size = 2.5) + +#' scale_ggsurvfit() #' @inherit ggsurvfit seealso scale_ggsurvfit <- function(x_scales = list(), y_scales = list()){ From a118761071aa7d73ef8616e91e6b5059caaf1f96 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Wed, 16 Oct 2024 18:34:53 +0000 Subject: [PATCH 05/17] commit --- R/scale_ggsurvfit.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/scale_ggsurvfit.R b/R/scale_ggsurvfit.R index 0961f90..3805065 100644 --- a/R/scale_ggsurvfit.R +++ b/R/scale_ggsurvfit.R @@ -41,9 +41,9 @@ #' # Here, adjust the size in `add_risktable(size = 2.5)` (as an example) can decrease the font size of the risk table #' # and make the numbers all fit in the plot region. The scale of the `size` argument differs by cases. #' ggsurvfit <- -#' survfit2(Surv(time, status) ~ surg, data = df_colon[sample(1:nrow(df_colon), size = 15*nrow(df_colon), replace = TRUE), ]) %>% -#' ggsurvfit() + add_risktable(size = 2.5) + -#' scale_ggsurvfit() +#' survfit2(Surv(time, status) ~ surg, data = df_colon[sample(1:nrow(df_colon), size = 15*nrow(df_colon), replace = TRUE), ]) %>% +#' ggsurvfit() + add_risktable(size = 2.5) + +#' scale_ggsurvfit() #' @inherit ggsurvfit seealso scale_ggsurvfit <- function(x_scales = list(), y_scales = list()){ From 51354b6d69e886091322904ce9ccc90c71eb9703 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Wed, 16 Oct 2024 18:36:21 +0000 Subject: [PATCH 06/17] commit --- R/scale_ggsurvfit.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/scale_ggsurvfit.R b/R/scale_ggsurvfit.R index 3805065..6946883 100644 --- a/R/scale_ggsurvfit.R +++ b/R/scale_ggsurvfit.R @@ -40,8 +40,9 @@ #' # To remedy this, consider the following example code for a simulated large-size survival dataset: #' # Here, adjust the size in `add_risktable(size = 2.5)` (as an example) can decrease the font size of the risk table #' # and make the numbers all fit in the plot region. The scale of the `size` argument differs by cases. +#' df_colon_large <- df_colon[sample(1:nrow(df_colon), size = 15*nrow(df_colon), replace = TRUE), ] #' ggsurvfit <- -#' survfit2(Surv(time, status) ~ surg, data = df_colon[sample(1:nrow(df_colon), size = 15*nrow(df_colon), replace = TRUE), ]) %>% +#' survfit2(Surv(time, status) ~ surg, data = df_colon_large) %>% #' ggsurvfit() + add_risktable(size = 2.5) + #' scale_ggsurvfit() #' @inherit ggsurvfit seealso From 48dc898bc3290028f1619184055414dd84282675 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Wed, 16 Oct 2024 20:46:02 +0000 Subject: [PATCH 07/17] commit --- R/scale_ggsurvfit.R | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/R/scale_ggsurvfit.R b/R/scale_ggsurvfit.R index 6946883..7acda91 100644 --- a/R/scale_ggsurvfit.R +++ b/R/scale_ggsurvfit.R @@ -35,15 +35,18 @@ #' ggsurvfit + #' scale_ggsurvfit(x_scales = list(breaks = seq(0, 8, by = 2))) #' -#' # Specical case: in the risk table, large numbers (with more than 4 digits) may not -#' # be shown completely, with some digits truncated outside the plot region. -#' # To remedy this, consider the following example code for a simulated large-size survival dataset: -#' # Here, adjust the size in `add_risktable(size = 2.5)` (as an example) can decrease the font size of the risk table -#' # and make the numbers all fit in the plot region. The scale of the `size` argument differs by cases. +#' @details +#' Specical case: in the risk table, large numbers (with more than 4 digits) may not +#' be shown completely, with some digits truncated outside the plot region. +#' To remedy this, consider the following example code for a simulated large-size survival dataset: +#' Here, adjust the expand size in `scale_ggsurvfit(x_scales = list(expand = c(0.05, 0)))` (for example) +#' can modify the position of numbers in the risk table +#' and make them all fit in the plot region. The scale of the `expand` argument differs by cases. +#' #' df_colon_large <- df_colon[sample(1:nrow(df_colon), size = 15*nrow(df_colon), replace = TRUE), ] #' ggsurvfit <- #' survfit2(Surv(time, status) ~ surg, data = df_colon_large) %>% -#' ggsurvfit() + add_risktable(size = 2.5) + +#' ggsurvfit() + add_risktable() + #' scale_ggsurvfit() #' @inherit ggsurvfit seealso scale_ggsurvfit <- From afe867c9190d12c4d78e8cd79b22444bf9e85601 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Wed, 16 Oct 2024 20:48:53 +0000 Subject: [PATCH 08/17] commit --- man/scale_ggsurvfit.Rd | 15 ++++++++++++++ man/stepribbon.Rd | 47 +++++++----------------------------------- 2 files changed, 23 insertions(+), 39 deletions(-) diff --git a/man/scale_ggsurvfit.Rd b/man/scale_ggsurvfit.Rd index 72ece39..8c998f5 100644 --- a/man/scale_ggsurvfit.Rd +++ b/man/scale_ggsurvfit.Rd @@ -30,6 +30,20 @@ For example, it's common you'll need to specify the x-axis break points. To reset any of the above settings to their ggplot2 default, set the value to \code{NULL}, e.g. \code{y_scales = list(limits = NULL)}. } +\details{ +Specical case: in the risk table, large numbers (with more than 4 digits) may not +be shown completely, with some digits truncated outside the plot region. +To remedy this, consider the following example code for a simulated large-size survival dataset: +Here, adjust the expand size in \code{scale_ggsurvfit(x_scales = list(expand = c(0.05, 0)))} (for example) +can modify the position of numbers in the risk table +and make them all fit in the plot region. The scale of the \code{expand} argument differs by cases. + +df_colon_large <- df_colon\link{sample(1:nrow(df_colon), size = 15*nrow(df_colon), replace = TRUE), } +ggsurvfit <- +survfit2(Surv(time, status) ~ surg, data = df_colon_large) \%>\% +ggsurvfit() + add_risktable() + +scale_ggsurvfit() +} \examples{ ggsurvfit <- survfit2(Surv(time, status) ~ surg, data = df_colon) \%>\% @@ -42,6 +56,7 @@ ggsurvfit + scale_ggsurvfit() # specify additional scales ggsurvfit + scale_ggsurvfit(x_scales = list(breaks = seq(0, 8, by = 2))) + } \seealso{ Visit the \href{https://www.danieldsjoberg.com/ggsurvfit/articles/gallery.html}{gallery} for examples modifying the default figures diff --git a/man/stepribbon.Rd b/man/stepribbon.Rd index 107c8a3..4a0a12e 100644 --- a/man/stepribbon.Rd +++ b/man/stepribbon.Rd @@ -47,18 +47,10 @@ from a \code{formula} (e.g. \code{~ head(.x, 10)}).} \item{geom}{which geom to use; defaults to "\code{ribbon}"} -\item{position}{A position adjustment to use on the data for this layer. This -can be used in various ways, including to prevent overplotting and -improving the display. The \code{position} argument accepts the following: -\itemize{ -\item The result of calling a position function, such as \code{position_jitter()}. -This method allows for passing extra arguments to the position. -\item A string naming the position adjustment. To give the position as a -string, strip the function name of the \code{position_} prefix. For example, -to use \code{position_jitter()}, give the position as \code{"jitter"}. -\item For more information and other ways to specify the position, see the -\link[ggplot2:layer_positions]{layer position} documentation. -}} +\item{position}{Position adjustment, either as a string naming the adjustment +(e.g. \code{"jitter"} to use \code{position_jitter}), or the result of a call to a +position adjustment function. Use the latter if you need to change the +settings of the adjustment.} \item{na.rm}{If \code{FALSE}, the default, missing values are removed with a warning. If \code{TRUE}, missing values are silently removed.} @@ -77,33 +69,10 @@ the default plot specification, e.g. \code{\link[ggplot2:borders]{borders()}}.} \item{direction}{\code{hv} for horizontal-vertical steps, \code{vh} for vertical-horizontal steps} -\item{...}{Other arguments passed on to \code{\link[ggplot2:layer]{layer()}}'s \code{params} argument. These -arguments broadly fall into one of 4 categories below. Notably, further -arguments to the \code{position} argument, or aesthetics that are required -can \emph{not} be passed through \code{...}. Unknown arguments that are not part -of the 4 categories below are ignored. -\itemize{ -\item Static aesthetics that are not mapped to a scale, but are at a fixed -value and apply to the layer as a whole. For example, \code{colour = "red"} -or \code{linewidth = 3}. The geom's documentation has an \strong{Aesthetics} -section that lists the available options. The 'required' aesthetics -cannot be passed on to the \code{params}. Please note that while passing -unmapped aesthetics as vectors is technically possible, the order and -required length is not guaranteed to be parallel to the input data. -\item When constructing a layer using -a \verb{stat_*()} function, the \code{...} argument can be used to pass on -parameters to the \code{geom} part of the layer. An example of this is -\code{stat_density(geom = "area", outline.type = "both")}. The geom's -documentation lists which parameters it can accept. -\item Inversely, when constructing a layer using a -\verb{geom_*()} function, the \code{...} argument can be used to pass on parameters -to the \code{stat} part of the layer. An example of this is -\code{geom_area(stat = "density", adjust = 0.5)}. The stat's documentation -lists which parameters it can accept. -\item The \code{key_glyph} argument of \code{\link[ggplot2:layer]{layer()}} may also be passed on through -\code{...}. This can be one of the functions described as -\link[ggplot2:draw_key]{key glyphs}, to change the display of the layer in the legend. -}} +\item{...}{Other arguments passed on to \code{\link[ggplot2:layer]{layer()}}. These are +often aesthetics, used to set an aesthetic to a fixed value, like +\code{colour = "red"} or \code{size = 3}. They may also be parameters +to the paired geom/stat.} } \value{ a ggplot2 figure From 79f51be5181d8a0beeeefd3fb5c593778c04f3c2 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Mon, 21 Oct 2024 17:42:58 +0000 Subject: [PATCH 09/17] commit --- R/ggcuminc.R | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/R/ggcuminc.R b/R/ggcuminc.R index ab182f6..d9eec04 100644 --- a/R/ggcuminc.R +++ b/R/ggcuminc.R @@ -55,6 +55,14 @@ ggcuminc <- function(x, outcome = NULL, ) } + # Generate an error if the input is a `survfit.coxphms` regression model: ---- + if (inherits(x, "survfitcoxms")) { + cli_abort( + "Argument {.arg x} does not support {.cls survfit.coxphms} object. + Please fit a multi-state model with another project, such as {.fn coxph}." + ) + } + # prep data to be passed to ggplot() ----------------------------------------- if (inherits(x, "tidycuminc")) df <- tidy_cuminc(x = x) From 7d501d9bc5add5fea69e1432814f6f1673eae392 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Mon, 21 Oct 2024 20:44:58 +0000 Subject: [PATCH 10/17] commit --- R/ggcuminc.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/ggcuminc.R b/R/ggcuminc.R index d9eec04..ecbaf2d 100644 --- a/R/ggcuminc.R +++ b/R/ggcuminc.R @@ -77,7 +77,7 @@ ggcuminc <- function(x, outcome = NULL, cli_inform("Plotting outcome {.val {outcome}}.") } if (any(!outcome %in% unique(df$outcome))) { - cli_abort("Argument {.code outcome} must be one or more of {.val {unique(df$outcome)}}") + cli_abort("Argument {.arg x} does not support {.cls survfit.coxphms} object.") } df <- dplyr::filter(df, .data$outcome %in% .env$outcome) From 93d688c2ba17409df86206551b691bd163839f66 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Mon, 21 Oct 2024 20:50:29 +0000 Subject: [PATCH 11/17] commit --- R/utils-add_risktable.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/utils-add_risktable.R b/R/utils-add_risktable.R index ff07d43..ffd3a28 100644 --- a/R/utils-add_risktable.R +++ b/R/utils-add_risktable.R @@ -18,7 +18,7 @@ } # get data to place in risktables -------------------------------------------- - times <- times %||% plot_build$layout$panel_params[[1]]$x.sec$breaks + times <- times %||% plot_build$layout$panel_params[[1]]$x$breaks df_times <- .prepare_data_for_risk_tables(data = x$data, times = times, combine_groups = combine_groups) From d5df242b2548a5b8fec741c26bafe4155293d6a5 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Mon, 21 Oct 2024 20:59:57 +0000 Subject: [PATCH 12/17] commit --- R/scale_ggsurvfit.R | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/R/scale_ggsurvfit.R b/R/scale_ggsurvfit.R index 7acda91..f2323ef 100644 --- a/R/scale_ggsurvfit.R +++ b/R/scale_ggsurvfit.R @@ -42,15 +42,9 @@ #' Here, adjust the expand size in `scale_ggsurvfit(x_scales = list(expand = c(0.05, 0)))` (for example) #' can modify the position of numbers in the risk table #' and make them all fit in the plot region. The scale of the `expand` argument differs by cases. -#' -#' df_colon_large <- df_colon[sample(1:nrow(df_colon), size = 15*nrow(df_colon), replace = TRUE), ] -#' ggsurvfit <- -#' survfit2(Surv(time, status) ~ surg, data = df_colon_large) %>% -#' ggsurvfit() + add_risktable() + -#' scale_ggsurvfit() + #' @inherit ggsurvfit seealso -scale_ggsurvfit <- - function(x_scales = list(), y_scales = list()){ +scale_ggsurvfit <- function(x_scales = list(), y_scales = list()){ scale_ggsurvfit_empty_list <- list() structure(scale_ggsurvfit_empty_list, x_scales = x_scales, y_scales = y_scales, class = "scale_ggsurvfit") } From 286d8cd76a06f2bda0ffc5ace613cbb8d15b0150 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Mon, 21 Oct 2024 21:01:26 +0000 Subject: [PATCH 13/17] commit --- man/scale_ggsurvfit.Rd | 6 ------ 1 file changed, 6 deletions(-) diff --git a/man/scale_ggsurvfit.Rd b/man/scale_ggsurvfit.Rd index 8c998f5..1ae7fbd 100644 --- a/man/scale_ggsurvfit.Rd +++ b/man/scale_ggsurvfit.Rd @@ -37,12 +37,6 @@ To remedy this, consider the following example code for a simulated large-size s Here, adjust the expand size in \code{scale_ggsurvfit(x_scales = list(expand = c(0.05, 0)))} (for example) can modify the position of numbers in the risk table and make them all fit in the plot region. The scale of the \code{expand} argument differs by cases. - -df_colon_large <- df_colon\link{sample(1:nrow(df_colon), size = 15*nrow(df_colon), replace = TRUE), } -ggsurvfit <- -survfit2(Surv(time, status) ~ surg, data = df_colon_large) \%>\% -ggsurvfit() + add_risktable() + -scale_ggsurvfit() } \examples{ ggsurvfit <- From 4620d3775d09155dc1b80f3f99585d94b09b631b Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Mon, 21 Oct 2024 21:03:29 +0000 Subject: [PATCH 14/17] commit --- R/utils-add_risktable.R | 1 + 1 file changed, 1 insertion(+) diff --git a/R/utils-add_risktable.R b/R/utils-add_risktable.R index ffd3a28..2f64136 100644 --- a/R/utils-add_risktable.R +++ b/R/utils-add_risktable.R @@ -19,6 +19,7 @@ # get data to place in risktables -------------------------------------------- times <- times %||% plot_build$layout$panel_params[[1]]$x$breaks + df_times <- .prepare_data_for_risk_tables(data = x$data, times = times, combine_groups = combine_groups) From 9fe24fad6c48a9c780f78446b1649a1fc043b7a1 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Mon, 21 Oct 2024 21:18:53 +0000 Subject: [PATCH 15/17] commit --- R/ggcuminc.R | 8 -------- R/scale_ggsurvfit.R | 8 -------- 2 files changed, 16 deletions(-) diff --git a/R/ggcuminc.R b/R/ggcuminc.R index ecbaf2d..b4566ac 100644 --- a/R/ggcuminc.R +++ b/R/ggcuminc.R @@ -55,14 +55,6 @@ ggcuminc <- function(x, outcome = NULL, ) } - # Generate an error if the input is a `survfit.coxphms` regression model: ---- - if (inherits(x, "survfitcoxms")) { - cli_abort( - "Argument {.arg x} does not support {.cls survfit.coxphms} object. - Please fit a multi-state model with another project, such as {.fn coxph}." - ) - } - # prep data to be passed to ggplot() ----------------------------------------- if (inherits(x, "tidycuminc")) df <- tidy_cuminc(x = x) diff --git a/R/scale_ggsurvfit.R b/R/scale_ggsurvfit.R index f2323ef..38b27b7 100644 --- a/R/scale_ggsurvfit.R +++ b/R/scale_ggsurvfit.R @@ -34,14 +34,6 @@ #' # specify additional scales #' ggsurvfit + #' scale_ggsurvfit(x_scales = list(breaks = seq(0, 8, by = 2))) -#' -#' @details -#' Specical case: in the risk table, large numbers (with more than 4 digits) may not -#' be shown completely, with some digits truncated outside the plot region. -#' To remedy this, consider the following example code for a simulated large-size survival dataset: -#' Here, adjust the expand size in `scale_ggsurvfit(x_scales = list(expand = c(0.05, 0)))` (for example) -#' can modify the position of numbers in the risk table -#' and make them all fit in the plot region. The scale of the `expand` argument differs by cases. #' @inherit ggsurvfit seealso scale_ggsurvfit <- function(x_scales = list(), y_scales = list()){ From 87e5c0fbcf0b7c625848b85bb6a7f42b2fe69394 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Tue, 22 Oct 2024 01:34:03 +0000 Subject: [PATCH 16/17] commit --- R/ggcuminc.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/ggcuminc.R b/R/ggcuminc.R index b4566ac..ab182f6 100644 --- a/R/ggcuminc.R +++ b/R/ggcuminc.R @@ -69,7 +69,7 @@ ggcuminc <- function(x, outcome = NULL, cli_inform("Plotting outcome {.val {outcome}}.") } if (any(!outcome %in% unique(df$outcome))) { - cli_abort("Argument {.arg x} does not support {.cls survfit.coxphms} object.") + cli_abort("Argument {.code outcome} must be one or more of {.val {unique(df$outcome)}}") } df <- dplyr::filter(df, .data$outcome %in% .env$outcome) From efdd6084d63aaf2864354d956547d2e2e4055fe0 Mon Sep 17 00:00:00 2001 From: Zilin Huang Date: Tue, 22 Oct 2024 01:39:53 +0000 Subject: [PATCH 17/17] commit --- R/scale_ggsurvfit.R | 1 - 1 file changed, 1 deletion(-) diff --git a/R/scale_ggsurvfit.R b/R/scale_ggsurvfit.R index 38b27b7..4947f2f 100644 --- a/R/scale_ggsurvfit.R +++ b/R/scale_ggsurvfit.R @@ -34,7 +34,6 @@ #' # specify additional scales #' ggsurvfit + #' scale_ggsurvfit(x_scales = list(breaks = seq(0, 8, by = 2))) - #' @inherit ggsurvfit seealso scale_ggsurvfit <- function(x_scales = list(), y_scales = list()){ scale_ggsurvfit_empty_list <- list()