Pull Request by Zilin Huang regarding Issue #222

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)
@@ -71,6 +79,7 @@ ggcuminc <- function(x, outcome = NULL,
   if (any(!outcome %in% unique(df$outcome))) {
     cli_abort("Argument {.code outcome} must be one or more of {.val {unique(df$outcome)}}")
   }
+
   df <- dplyr::filter(df, .data$outcome %in% .env$outcome)
 
   # construct aes() call -------------------------------------------------------

R/utils-add_risktable.R

@@ -19,6 +19,7 @@
 
   # get data to place in risktables --------------------------------------------
   times <- times %||% plot_build$layout$panel_params[[1]]$x.sec$breaks
+
   df_times <-
     .prepare_data_for_risk_tables(data = x$data, times = times, combine_groups = combine_groups)