Pull Request by Zilin Huang regarding Issue #221

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 {.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)
 

R/scale_ggsurvfit.R

@@ -34,6 +34,7 @@
 #' # 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()

R/utils-add_risktable.R

@@ -18,7 +18,8 @@
   }
 
   # 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)