Running examples in ‘gtsummary-Ex.R’ failed
The error most likely occurred in:

> ### Name: add_nevent.tbl_survfit
> ### Title: Add event N
> ### Aliases: add_nevent.tbl_survfit
> 
> ### ** Examples
> 
> ## Don't show: 
> if (gtsummary:::is_pkg_installed(c("survival", "broom"))) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ library(survival)
+ fit1 <- survfit(Surv(ttdeath, death) ~ 1, trial)
+ fit2 <- survfit(Surv(ttdeath, death) ~ trt, trial)
+ 
+ # Example 1 ----------------------------------
+ list(fit1, fit2) |>
+   tbl_survfit(times = c(12, 24)) |>
+   add_n() |>
+   add_nevent()
+ ## Don't show: 
+ }) # examplesIf
> library(survival)
> fit1 <- survfit(Surv(ttdeath, death) ~ 1, trial)
> fit2 <- survfit(Surv(ttdeath, death) ~ trt, trial)
> add_nevent(add_n(tbl_survfit(list(fit1, fit2), times = c(12, 24))))
Error in `dplyr::mutate()`:
ℹ In argument: `gts_column = case_switch(...)`.
Caused by error:
! `gts_column` must be size 12 or 1, not 10.
Backtrace:
     ▆
  1. ├─(if (getRversion() >= "3.4") withAutoprint else force)(...)
  2. │ └─base::source(...)
  3. │   ├─base::withVisible(eval(ei, envir))
  4. │   └─base::eval(ei, envir)
  5. │     └─base::eval(ei, envir)
  6. ├─gtsummary::add_nevent(...)
  7. │ └─gtsummary:::check_class(x, "gtsummary")
  8. ├─gtsummary::add_n(...)
  9. │ └─gtsummary:::check_class(x, "gtsummary")
 10. ├─gtsummary::tbl_survfit(list(fit1, fit2), times = c(12, 24))
 11. ├─gtsummary:::tbl_survfit.list(...)
 12. │ └─base::lapply(...)
 13. │   └─gtsummary (local) FUN(X[[i]], ...)
 14. │     ├─dplyr::mutate(...)
 15. │     └─dplyr:::mutate.data.frame(...)
 16. │       └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
 17. │         ├─base::withCallingHandlers(...)
 18. │         └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
 19. │           └─mask$eval_all_mutate(quo)
 20. │             └─dplyr (local) eval()
 21. ├─dplyr:::dplyr_internal_error(...)
 22. │ └─rlang::abort(class = c(class, "dplyr:::internal_error"), dplyr_error_data = data)
 23. │   └─rlang:::signal_abort(cnd, .file)
 24. │     └─base::signalCondition(cnd)
 25. └─dplyr (local) `<fn>`(`<dpl:::__>`)
 26.   └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
Execution halted