Running 'spelling.R' [0s]
  Running 'testthat.R' [9s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > Sys.setenv("R_TESTS" = "")
  > 
  > library(testthat)
  > library(idmodelr)
  > 
  > test_check("idmodelr")
  [ FAIL 7 | WARN 10 | SKIP 39 | PASS 43 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (39)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-aggregate_model_internal.R:19:3): aggregate_model_internal can correctly aggregate demographics ──
  Error in `bind_cols(.)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─idmodelr::aggregate_model_internal(...) at test-aggregate_model_internal.R:19:2
    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)
  ── Error (test-aggregate_model_internal.R:29:3): aggregate_model_internal can correctly aggregate disease ──
  Error in `bind_cols(.)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─idmodelr::aggregate_model_internal(...) at test-aggregate_model_internal.R:29:2
    2. │ └─idmodelr::combine_strat_model_output(...)
    3. │   └─... %>% set_names(compartments)
    4. ├─dplyr::bind_cols(.)
    5. │ ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
    6. │ │ └─base::withCallingHandlers(...)
    7. │ └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
    8. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
    9. │ └─rlang::names_inform_repair(orig_names, names)
   10. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   11. │     ├─base::withRestarts(...)
   12. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   13. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   14. │     └─base::signalCondition(cnd)
   15. │       ├─base::conditionMessage(cond)
   16. │       └─rlang:::conditionMessage.rlang_message(cond)
   17. │         └─rlang::cnd_message(c)
   18. │           └─rlang:::cnd_message_format(cnd, ...)
   19. │             └─rlang (local) cli_format(glue_escape(lines))
   20. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   21. │                 └─cli::cli_format(x, .envir = emptyenv())
   22. │                   └─cli:::fmt(...)
   23. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   24. │                       ├─base::do.call(app[[msg$type]], msg$args)
   25. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-60", class = NULL)
   26. │                         └─cli:::clii_bullets(app, text, id, class)
   27. │                           └─base::lapply(...)
   28. │                             └─cli (local) FUN(X[[i]], ...)
   29. │                               └─app$text(text[[i]])
   30. │                                 └─cli:::clii_text(app, text)
   31. │                                   └─app$xtext(text)
   32. │                                     └─cli:::clii__xtext(...)
   33. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   34. │                                         └─base::lapply(pars, ansi_trimws)
   35. │                                           └─cli (local) FUN(X[[i]], ...)
   36. └─base::.handleSimpleError(...)
   37.   └─dplyr (local) h(simpleError(msg, call))
   38.     └─rlang::cnd_signal(cnd)
  ── Error (test-combine_strat_model_output.R:21:3): Correctly dedimensionalises successful with default arguements ──
  Error in `bind_cols(.)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-combine_strat_model_output.R:21:2
    2. │ └─testthat::quasi_label(enquo(expected), expected.label, arg = "expected")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─idmodelr::combine_strat_model_output(df[, -1], strat = 3)
    5. │ └─... %>% set_names(compartments)
    6. ├─dplyr::bind_cols(.)
    7. │ ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
    8. │ │ └─base::withCallingHandlers(...)
    9. │ └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   10. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   11. │ └─rlang::names_inform_repair(orig_names, names)
   12. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   13. │     ├─base::withRestarts(...)
   14. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   15. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   16. │     └─base::signalCondition(cnd)
   17. │       ├─base::conditionMessage(cond)
   18. │       └─rlang:::conditionMessage.rlang_message(cond)
   19. │         └─rlang::cnd_message(c)
   20. │           └─rlang:::cnd_message_format(cnd, ...)
   21. │             └─rlang (local) cli_format(glue_escape(lines))
   22. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   23. │                 └─cli::cli_format(x, .envir = emptyenv())
   24. │                   └─cli:::fmt(...)
   25. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   26. │                       ├─base::do.call(app[[msg$type]], msg$args)
   27. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-90", class = NULL)
   28. │                         └─cli:::clii_bullets(app, text, id, class)
   29. │                           └─base::lapply(...)
   30. │                             └─cli (local) FUN(X[[i]], ...)
   31. │                               └─app$text(text[[i]])
   32. │                                 └─cli:::clii_text(app, text)
   33. │                                   └─app$xtext(text)
   34. │                                     └─cli:::clii__xtext(...)
   35. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   36. │                                         └─base::lapply(pars, ansi_trimws)
   37. │                                           └─cli (local) FUN(X[[i]], ...)
   38. └─base::.handleSimpleError(...)
   39.   └─dplyr (local) h(simpleError(msg, call))
   40.     └─rlang::cnd_signal(cnd)
  ── Error (test-combine_strat_model_output.R:25:3): Holding out of time works as expected ──
  Error in `bind_cols(.)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-combine_strat_model_output.R:25:2
    2. │ └─testthat::quasi_label(enquo(expected), expected.label, arg = "expected")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─idmodelr::combine_strat_model_output(df, strat = 3, hold_out_var = "time")
    5. │ └─... %>% set_names(compartments)
    6. ├─dplyr::bind_cols(.)
    7. │ ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
    8. │ │ └─base::withCallingHandlers(...)
    9. │ └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   10. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   11. │ └─rlang::names_inform_repair(orig_names, names)
   12. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   13. │     ├─base::withRestarts(...)
   14. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   15. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   16. │     └─base::signalCondition(cnd)
   17. │       ├─base::conditionMessage(cond)
   18. │       └─rlang:::conditionMessage.rlang_message(cond)
   19. │         └─rlang::cnd_message(c)
   20. │           └─rlang:::cnd_message_format(cnd, ...)
   21. │             └─rlang (local) cli_format(glue_escape(lines))
   22. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   23. │                 └─cli::cli_format(x, .envir = emptyenv())
   24. │                   └─cli:::fmt(...)
   25. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   26. │                       ├─base::do.call(app[[msg$type]], msg$args)
   27. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-120", class = NULL)
   28. │                         └─cli:::clii_bullets(app, text, id, class)
   29. │                           └─base::lapply(...)
   30. │                             └─cli (local) FUN(X[[i]], ...)
   31. │                               └─app$text(text[[i]])
   32. │                                 └─cli:::clii_text(app, text)
   33. │                                   └─app$xtext(text)
   34. │                                     └─cli:::clii__xtext(...)
   35. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   36. │                                         └─base::lapply(pars, ansi_trimws)
   37. │                                           └─cli (local) FUN(X[[i]], ...)
   38. └─base::.handleSimpleError(...)
   39.   └─dplyr (local) h(simpleError(msg, call))
   40.     └─rlang::cnd_signal(cnd)
  ── Error (test-combine_strat_model_output.R:31:3): Specifying compartments, automatically specifies hold out variables ──
  Error in `bind_cols(.)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-combine_strat_model_output.R:31:2
    2. │ └─testthat::quasi_label(enquo(expected), expected.label, arg = "expected")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─idmodelr::combine_strat_model_output(...)
    5. │ └─... %>% set_names(compartments)
    6. ├─dplyr::bind_cols(.)
    7. │ ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
    8. │ │ └─base::withCallingHandlers(...)
    9. │ └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   10. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   11. │ └─rlang::names_inform_repair(orig_names, names)
   12. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   13. │     ├─base::withRestarts(...)
   14. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   15. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   16. │     └─base::signalCondition(cnd)
   17. │       ├─base::conditionMessage(cond)
   18. │       └─rlang:::conditionMessage.rlang_message(cond)
   19. │         └─rlang::cnd_message(c)
   20. │           └─rlang:::cnd_message_format(cnd, ...)
   21. │             └─rlang (local) cli_format(glue_escape(lines))
   22. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   23. │                 └─cli::cli_format(x, .envir = emptyenv())
   24. │                   └─cli:::fmt(...)
   25. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   26. │                       ├─base::do.call(app[[msg$type]], msg$args)
   27. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-150", class = NULL)
   28. │                         └─cli:::clii_bullets(app, text, id, class)
   29. │                           └─base::lapply(...)
   30. │                             └─cli (local) FUN(X[[i]], ...)
   31. │                               └─app$text(text[[i]])
   32. │                                 └─cli:::clii_text(app, text)
   33. │                                   └─app$xtext(text)
   34. │                                     └─cli:::clii__xtext(...)
   35. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   36. │                                         └─base::lapply(pars, ansi_trimws)
   37. │                                           └─cli (local) FUN(X[[i]], ...)
   38. └─base::.handleSimpleError(...)
   39.   └─dplyr (local) h(simpleError(msg, call))
   40.     └─rlang::cnd_signal(cnd)
  ── Error (test-combine_strat_model_output.R:37:3): Specifying hold out variables, automatically specifies compartments ──
  Error in `bind_cols(.)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-combine_strat_model_output.R:37:2
    2. │ └─testthat::quasi_label(enquo(expected), expected.label, arg = "expected")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─idmodelr::combine_strat_model_output(df, strat = 3, hold_out_var = "time")
    5. │ └─... %>% set_names(compartments)
    6. ├─dplyr::bind_cols(.)
    7. │ ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
    8. │ │ └─base::withCallingHandlers(...)
    9. │ └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   10. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   11. │ └─rlang::names_inform_repair(orig_names, names)
   12. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   13. │     ├─base::withRestarts(...)
   14. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   15. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   16. │     └─base::signalCondition(cnd)
   17. │       ├─base::conditionMessage(cond)
   18. │       └─rlang:::conditionMessage.rlang_message(cond)
   19. │         └─rlang::cnd_message(c)
   20. │           └─rlang:::cnd_message_format(cnd, ...)
   21. │             └─rlang (local) cli_format(glue_escape(lines))
   22. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   23. │                 └─cli::cli_format(x, .envir = emptyenv())
   24. │                   └─cli:::fmt(...)
   25. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   26. │                       ├─base::do.call(app[[msg$type]], msg$args)
   27. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-180", class = NULL)
   28. │                         └─cli:::clii_bullets(app, text, id, class)
   29. │                           └─base::lapply(...)
   30. │                             └─cli (local) FUN(X[[i]], ...)
   31. │                               └─app$text(text[[i]])
   32. │                                 └─cli:::clii_text(app, text)
   33. │                                   └─app$xtext(text)
   34. │                                     └─cli:::clii__xtext(...)
   35. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   36. │                                         └─base::lapply(pars, ansi_trimws)
   37. │                                           └─cli (local) FUN(X[[i]], ...)
   38. └─base::.handleSimpleError(...)
   39.   └─dplyr (local) h(simpleError(msg, call))
   40.     └─rlang::cnd_signal(cnd)
  ── Error (test-combine_to_age_model.R:12:1): (code run outside of `test_that()`) ──
  Error in `bind_cols(.)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─idmodelr::combine_to_age_model(df, age_com = 2, hold_out_var = "time") at test-combine_to_age_model.R:12:0
    2. │ ├─base::suppressMessages(...)
    3. │ │ └─base::withCallingHandlers(...)
    4. │ └─... %>% set_names(age_group_names)
    5. ├─dplyr::bind_cols(.)
    6. │ └─rlang::list2(...)
    7. ├─purrr::map(...)
    8. │ └─idmodelr (local) .f(.x[[i]], ...)
    9. │   └─... %>% enframe(name = NULL)
   10. ├─tibble::enframe(., name = NULL)
   11. ├─base::rowSums(.)
   12. │ └─base::is.data.frame(x)
   13. ├─dplyr::bind_cols(.)
   14. │ ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   15. │ │ └─base::withCallingHandlers(...)
   16. │ └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   17. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   18. │ └─rlang::names_inform_repair(orig_names, names)
   19. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   20. │     ├─base::withRestarts(...)
   21. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   22. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   23. │     └─base::signalCondition(cnd)
   24. │       ├─base::conditionMessage(cond)
   25. │       └─rlang:::conditionMessage.rlang_message(cond)
   26. │         └─rlang::cnd_message(c)
   27. │           └─rlang:::cnd_message_format(cnd, ...)
   28. │             └─rlang (local) cli_format(glue_escape(lines))
   29. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   30. │                 └─cli::cli_format(x, .envir = emptyenv())
   31. │                   └─cli:::fmt(...)
   32. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   33. │                       ├─base::do.call(app[[msg$type]], msg$args)
   34. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-210", class = NULL)
   35. │                         └─cli:::clii_bullets(app, text, id, class)
   36. │                           └─base::lapply(...)
   37. │                             └─cli (local) FUN(X[[i]], ...)
   38. │                               └─app$text(text[[i]])
   39. │                                 └─cli:::clii_text(app, text)
   40. │                                   └─app$xtext(text)
   41. │                                     └─cli:::clii__xtext(...)
   42. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   43. │                                         └─base::lapply(pars, ansi_trimws)
   44. │                                           └─cli (local) FUN(X[[i]], ...)
   45. └─base::.handleSimpleError(...)
   46.   └─dplyr (local) h(simpleError(msg, call))
   47.     └─rlang::cnd_signal(cnd)
  
  [ FAIL 7 | WARN 10 | SKIP 39 | PASS 43 ]
  Error: Test failures
  Execution halted