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

> ### Name: aggregate_model_internal
> ### Title: An Internal Function to Aggregate Model Output Using other
> ###   Idmodelr functions.
> ### Aliases: aggregate_model_internal
> 
> ### ** Examples
> 
> 
> df <- data.frame(time = 1, A1 = 1, B1 = 1, A2 = 1, B2 = 1, A3 = 1, B3 = 1)
> 
> ## Incidence
> aggregate_model_internal(df, aggregate_to = "incidence",
+                         compartments = c("A", "B"), strat = 3,
+                         summary_var = TRUE)
# A tibble: 1 × 11
  incidence incidence1 incidence2 incidence3  time    A1    B1    A2    B2    A3
      <dbl>      <dbl>      <dbl>      <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl>
1         6          2          2          2     1     1     1     1     1     1
# … with 1 more variable: B3 <dbl>
> 
> ## Demographic
> aggregate_model_internal(df, aggregate_to = "demographic",
+                         compartments = c("A", "B"), strat = 3,
+                         summary_var = TRUE)
Error in `bind_cols()`:
! number of characters is not computable in "bytes" encoding, element 1
Backtrace:
     ▆
  1. ├─idmodelr::aggregate_model_internal(...)
  2. │ └─idmodelr::combine_to_age_model(...)
  3. │   ├─base::suppressMessages(...)
  4. │   │ └─base::withCallingHandlers(...)
  5. │   └─... %>% set_names(age_group_names)
  6. ├─dplyr::bind_cols(.)
  7. │ └─rlang::list2(...)
  8. ├─purrr::map(...)
  9. │ └─idmodelr (local) .f(.x[[i]], ...)
 10. │   └─... %>% enframe(name = NULL)
 11. ├─tibble::enframe(., name = NULL)
 12. ├─base::rowSums(.)
 13. │ └─base::is.data.frame(x)
 14. ├─dplyr::bind_cols(.)
 15. │ ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
 16. │ │ └─base::withCallingHandlers(...)
 17. │ └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
 18. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
 19. │ └─rlang::names_inform_repair(orig_names, names)
 20. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
 21. │     ├─base::withRestarts(...)
 22. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
 23. │     │   └─base (local) doWithOneRestart(return(expr), restart)
 24. │     └─base::signalCondition(cnd)
 25. │       ├─base::conditionMessage(cond)
 26. │       └─rlang:::conditionMessage.rlang_message(cond)
 27. │         └─rlang::cnd_message(c)
 28. │           └─rlang:::cnd_message_format(cnd, ...)
 29. │             └─rlang (local) cli_format(glue_escape(lines))
 30. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
 31. │                 └─cli::cli_format(x, .envir = emptyenv())
 32. │                   └─cli:::fmt(...)
 33. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
 34. │                       ├─base::do.call(app[[msg$type]], msg$args)
 35. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-30", class = NULL)
 36. │                         └─cli:::clii_bullets(app, text, id, class)
 37. │                           └─base::lapply(...)
 38. │                             └─cli (local) FUN(X[[i]], ...)
 39. │                               └─app$text(text[[i]])
 40. │                                 └─cli:::clii_text(app, text)
 41. │                                   └─app$xtext(text)
 42. │                                     └─cli:::clii__xtext(...)
 43. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
 44. │                                         └─base::lapply(pars, ansi_trimws)
 45. │                                           └─cli (local) FUN(X[[i]], ...)
 46. └─base::.handleSimpleError(...)
 47.   └─dplyr (local) h(simpleError(msg, call))
 48.     └─rlang::cnd_signal(cnd)
Execution halted