Running examples in 'halfmoon-Ex.R' failed
The error most likely occurred in:

> ### Name: add_ess_header
> ### Title: Add ESS Table Header
> ### Aliases: add_ess_header
> 
> ### ** Examples
> 
> ## Don't show: 
> if (rlang::is_installed(c("survey", "gtsummary", "cards", "cardx", "dplyr"))) withAutoprint({ # examplesIf
+ ## End(Don't show)
+ svy <- survey::svydesign(~1, data = nhefs_weights, weights = ~ w_ate)
+ 
+ gtsummary::tbl_svysummary(svy, include = c(age, sex, smokeyrs)) |>
+   add_ess_header()
+ hdr <- paste0(
+   "**{level}**  \n",
+   "N = {n_unweighted}; ESS = {format(n, digits = 1, nsmall = 1)}"
+ )
+ gtsummary::tbl_svysummary(svy, by = qsmk, include = c(age, sex, smokeyrs)) |>
+   add_ess_header(header = hdr)
+ ## Don't show: 
+ }) # examplesIf
> svy <- survey::svydesign(~1, data = nhefs_weights, weights = ~w_ate)
> add_ess_header(gtsummary::tbl_svysummary(svy, include = c(age, sex, smokeyrs)))
Error in `gtsummary::tbl_svysummary()`:
! The following columns are not present: "warning" and "error".
Backtrace:
     ▆
  1. ├─base::withAutoprint(...)
  2. │ └─base::source(...)
  3. │   ├─base::withVisible(eval(ei, envir))
  4. │   └─base::eval(ei, envir)
  5. │     └─base::eval(ei, envir)
  6. ├─halfmoon::add_ess_header(...)
  7. └─gtsummary::tbl_svysummary(svy, include = c(age, sex, smokeyrs))
  8.   ├─cards::replace_null_statistic(...)
  9.   │ └─cards:::check_class(x, "card")
 10.   ├─cards::bind_ard(...)
 11.   │ └─dplyr::bind_rows(...)
 12.   │   └─rlang::list2(...)
 13.   ├─cardx::ard_total_n(data)
 14.   └─cardx:::ard_total_n.survey.design(data)
 15.     ├─dplyr::select(...)
 16.     ├─dplyr::mutate(...)
 17.     ├─cards::ard_tabulate_value(...)
 18.     └─cardx:::ard_tabulate_value.survey.design(...)
 19.       ├─dplyr::mutate(...)
 20.       ├─dplyr::filter(...)
 21.       ├─cards::ard_tabulate(...)
 22.       └─cardx:::ard_tabulate.survey.design(...)
 23.         ├─cards::tidy_ard_row_order(...)
 24.         │ └─dplyr::select(x, all_ard_groups(c("names", "levels")))
 25.         ├─cards::tidy_ard_column_order(...)
 26.         │ ├─dplyr::pull(...)
 27.         │ ├─dplyr::arrange(...)
 28.         │ ├─base::data.frame(colname = names(dplyr::select(x, all_ard_groups())))
 29.         │ └─dplyr::select(x, all_ard_groups())
 30.         ├─cards::as_card(...)
 31.         │ └─cards:::check_class(x, cls = "data.frame")
 32.         ├─dplyr::mutate(...)
 33.         └─cardx:::.restore_original_column_types(cards, data = data$variables)
 34.           └─cards::as_card(...)
 35.             └─cards::check_ard_structure(...)
 36.               └─cards:::.message_or_error(...)
 37.                 └─cli::cli_abort(msg, call = call, .envir = envir)
 38.                   └─rlang::abort(...)
Execution halted