Running 'testthat.R' [53s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(optimall)
  > 
  > test_check("optimall")
  [ FAIL 17 | WARN 0 | SKIP 0 | PASS 137 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-allocate_wave.R:18:3): the output of allocate_wave is as expected ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─optimall::allocate_wave(...) at test-allocate_wave.R:18:2
    2. │ └─optimall::optimum_allocation(...)
    3. │   ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─dplyr::bind_rows(priority_array)
    6. │     ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─vctrs::vec_rbind(!!!dots, .names_to = .id)
    9. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   10. │ └─rlang::names_inform_repair(orig_names, names)
   11. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   12. │     ├─base::withRestarts(...)
   13. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   14. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   15. │     └─base::signalCondition(cnd)
   16. │       ├─base::conditionMessage(cond)
   17. │       └─rlang:::conditionMessage.rlang_message(cond)
   18. │         └─rlang::cnd_message(c)
   19. │           └─rlang:::cnd_message_format(cnd, ...)
   20. │             └─rlang (local) cli_format(glue_escape(lines))
   21. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   22. │                 └─cli::cli_format(x, .envir = emptyenv())
   23. │                   └─cli:::fmt(...)
   24. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   25. │                       ├─base::do.call(app[[msg$type]], msg$args)
   26. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-318", class = NULL)
   27. │                         └─cli:::clii_bullets(app, text, id, class)
   28. │                           └─base::lapply(...)
   29. │                             └─cli (local) FUN(X[[i]], ...)
   30. │                               └─app$text(text[[i]])
   31. │                                 └─cli:::clii_text(app, text)
   32. │                                   └─app$xtext(text)
   33. │                                     └─cli:::clii__xtext(...)
   34. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   35. │                                         └─base::lapply(pars, ansi_trimws)
   36. │                                           └─cli (local) FUN(X[[i]], ...)
   37. └─base::.handleSimpleError(...)
   38.   └─dplyr (local) h(simpleError(msg, call))
   39.     └─rlang::cnd_signal(cnd)
  ── Error (test-allocate_wave.R:50:3): If there is oversampling, allocate_wave does keeps strata
            at least as large as they were in prior samples and total
            sample sizes add up properly ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─optimall::allocate_wave(...) at test-allocate_wave.R:50:2
    2. │ └─optimall::optimum_allocation(...)
    3. │   ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─dplyr::bind_rows(priority_array)
    6. │     ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─vctrs::vec_rbind(!!!dots, .names_to = .id)
    9. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   10. │ └─rlang::names_inform_repair(orig_names, names)
   11. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   12. │     ├─base::withRestarts(...)
   13. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   14. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   15. │     └─base::signalCondition(cnd)
   16. │       ├─base::conditionMessage(cond)
   17. │       └─rlang:::conditionMessage.rlang_message(cond)
   18. │         └─rlang::cnd_message(c)
   19. │           └─rlang:::cnd_message_format(cnd, ...)
   20. │             └─rlang (local) cli_format(glue_escape(lines))
   21. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   22. │                 └─cli::cli_format(x, .envir = emptyenv())
   23. │                   └─cli:::fmt(...)
   24. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   25. │                       ├─base::do.call(app[[msg$type]], msg$args)
   26. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-612", class = NULL)
   27. │                         └─cli:::clii_bullets(app, text, id, class)
   28. │                           └─base::lapply(...)
   29. │                             └─cli (local) FUN(X[[i]], ...)
   30. │                               └─app$text(text[[i]])
   31. │                                 └─cli:::clii_text(app, text)
   32. │                                   └─app$xtext(text)
   33. │                                     └─cli:::clii__xtext(...)
   34. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   35. │                                         └─base::lapply(pars, ansi_trimws)
   36. │                                           └─cli (local) FUN(X[[i]], ...)
   37. └─base::.handleSimpleError(...)
   38.   └─dplyr (local) h(simpleError(msg, call))
   39.     └─rlang::cnd_signal(cnd)
  ── Error (test-allocate_wave.R:80:3): the output of allocate_wave matches the output of
            optimum_allocation where it should ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─optimall::allocate_wave(...) at test-allocate_wave.R:80:2
    2. │ └─optimall::optimum_allocation(...)
    3. │   ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─dplyr::bind_rows(priority_array)
    6. │     ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─vctrs::vec_rbind(!!!dots, .names_to = .id)
    9. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   10. │ └─rlang::names_inform_repair(orig_names, names)
   11. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   12. │     ├─base::withRestarts(...)
   13. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   14. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   15. │     └─base::signalCondition(cnd)
   16. │       ├─base::conditionMessage(cond)
   17. │       └─rlang:::conditionMessage.rlang_message(cond)
   18. │         └─rlang::cnd_message(c)
   19. │           └─rlang:::cnd_message_format(cnd, ...)
   20. │             └─rlang (local) cli_format(glue_escape(lines))
   21. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   22. │                 └─cli::cli_format(x, .envir = emptyenv())
   23. │                   └─cli:::fmt(...)
   24. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   25. │                       ├─base::do.call(app[[msg$type]], msg$args)
   26. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-846", class = NULL)
   27. │                         └─cli:::clii_bullets(app, text, id, class)
   28. │                           └─base::lapply(...)
   29. │                             └─cli (local) FUN(X[[i]], ...)
   30. │                               └─app$text(text[[i]])
   31. │                                 └─cli:::clii_text(app, text)
   32. │                                   └─app$xtext(text)
   33. │                                     └─cli:::clii__xtext(...)
   34. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   35. │                                         └─base::lapply(pars, ansi_trimws)
   36. │                                           └─cli (local) FUN(X[[i]], ...)
   37. └─base::.handleSimpleError(...)
   38.   └─dplyr (local) h(simpleError(msg, call))
   39.     └─rlang::cnd_signal(cnd)
  ── Error (test-allocate_wave.R:139:3): detailed = TRUE gives all columns of interest ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─optimall::allocate_wave(...) at test-allocate_wave.R:139:2
    2. │ └─optimall::optimum_allocation(...)
    3. │   ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─dplyr::bind_rows(priority_array)
    6. │     ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─vctrs::vec_rbind(!!!dots, .names_to = .id)
    9. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   10. │ └─rlang::names_inform_repair(orig_names, names)
   11. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   12. │     ├─base::withRestarts(...)
   13. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   14. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   15. │     └─base::signalCondition(cnd)
   16. │       ├─base::conditionMessage(cond)
   17. │       └─rlang:::conditionMessage.rlang_message(cond)
   18. │         └─rlang::cnd_message(c)
   19. │           └─rlang:::cnd_message_format(cnd, ...)
   20. │             └─rlang (local) cli_format(glue_escape(lines))
   21. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   22. │                 └─cli::cli_format(x, .envir = emptyenv())
   23. │                   └─cli:::fmt(...)
   24. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   25. │                       ├─base::do.call(app[[msg$type]], msg$args)
   26. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-1164", class = NULL)
   27. │                         └─cli:::clii_bullets(app, text, id, class)
   28. │                           └─base::lapply(...)
   29. │                             └─cli (local) FUN(X[[i]], ...)
   30. │                               └─app$text(text[[i]])
   31. │                                 └─cli:::clii_text(app, text)
   32. │                                   └─app$xtext(text)
   33. │                                     └─cli:::clii__xtext(...)
   34. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   35. │                                         └─base::lapply(pars, ansi_trimws)
   36. │                                           └─cli (local) FUN(X[[i]], ...)
   37. └─base::.handleSimpleError(...)
   38.   └─dplyr (local) h(simpleError(msg, call))
   39.     └─rlang::cnd_signal(cnd)
  ── Error (test-apply_multiwave.R:20:3): optimum_allocation runs with args provided ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─optimall::apply_multiwave(...) at test-apply_multiwave.R:20:2
    2. ├─optimall::apply_multiwave(...)
    3. │ └─optimall::optimum_allocation(...)
    4. │   ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─dplyr::bind_rows(priority_array)
    7. │     ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    8. │     │ └─base::withCallingHandlers(...)
    9. │     └─vctrs::vec_rbind(!!!dots, .names_to = .id)
   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-1278", 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-apply_multiwave.R:69:3): optimum_allocation runs with args in metadata ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─optimall::apply_multiwave(MySurvey, phase = 2, wave = 1, fun = "optimum_allocation") at test-apply_multiwave.R:69:2
    2. ├─optimall::apply_multiwave(MySurvey, phase = 2, wave = 1, fun = "optimum_allocation")
    3. │ └─optimall::optimum_allocation(...)
    4. │   ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─dplyr::bind_rows(priority_array)
    7. │     ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    8. │     │ └─base::withCallingHandlers(...)
    9. │     └─vctrs::vec_rbind(!!!dots, .names_to = .id)
   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-1392", 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-apply_multiwave.R:149:3): optimum_allocation works for wave 2 also ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─optimall::apply_multiwave(...) at test-apply_multiwave.R:149:2
    2. ├─optimall::apply_multiwave(...)
    3. │ └─optimall::optimum_allocation(...)
    4. │   ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─dplyr::bind_rows(priority_array)
    7. │     ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    8. │     │ └─base::withCallingHandlers(...)
    9. │     └─vctrs::vec_rbind(!!!dots, .names_to = .id)
   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-1506", 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-apply_multiwave.R:197:3): allocate_wave runs with args provided ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─optimall::apply_multiwave(...) at test-apply_multiwave.R:197:2
    2. ├─optimall::apply_multiwave(...)
    3. │ └─optimall::allocate_wave(...)
    4. │   └─optimall::optimum_allocation(...)
    5. │     ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    6. │     │ └─base::withCallingHandlers(...)
    7. │     └─dplyr::bind_rows(priority_array)
    8. │       ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    9. │       │ └─base::withCallingHandlers(...)
   10. │       └─vctrs::vec_rbind(!!!dots, .names_to = .id)
   11. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   12. │ └─rlang::names_inform_repair(orig_names, names)
   13. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   14. │     ├─base::withRestarts(...)
   15. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   16. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   17. │     └─base::signalCondition(cnd)
   18. │       ├─base::conditionMessage(cond)
   19. │       └─rlang:::conditionMessage.rlang_message(cond)
   20. │         └─rlang::cnd_message(c)
   21. │           └─rlang:::cnd_message_format(cnd, ...)
   22. │             └─rlang (local) cli_format(glue_escape(lines))
   23. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   24. │                 └─cli::cli_format(x, .envir = emptyenv())
   25. │                   └─cli:::fmt(...)
   26. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   27. │                       ├─base::do.call(app[[msg$type]], msg$args)
   28. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-1980", class = NULL)
   29. │                         └─cli:::clii_bullets(app, text, id, class)
   30. │                           └─base::lapply(...)
   31. │                             └─cli (local) FUN(X[[i]], ...)
   32. │                               └─app$text(text[[i]])
   33. │                                 └─cli:::clii_text(app, text)
   34. │                                   └─app$xtext(text)
   35. │                                     └─cli:::clii__xtext(...)
   36. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   37. │                                         └─base::lapply(pars, ansi_trimws)
   38. │                                           └─cli (local) FUN(X[[i]], ...)
   39. └─base::.handleSimpleError(...)
   40.   └─dplyr (local) h(simpleError(msg, call))
   41.     └─rlang::cnd_signal(cnd)
  ── Error (test-apply_multiwave.R:256:3): allocate_wave runs with args in metadata ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─optimall::apply_multiwave(MySurvey, phase = 2, wave = 2, fun = "allocate_wave") at test-apply_multiwave.R:256:2
    2. ├─optimall::apply_multiwave(MySurvey, phase = 2, wave = 2, fun = "allocate_wave")
    3. │ └─optimall::allocate_wave(...)
    4. │   └─optimall::optimum_allocation(...)
    5. │     ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    6. │     │ └─base::withCallingHandlers(...)
    7. │     └─dplyr::bind_rows(priority_array)
    8. │       ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    9. │       │ └─base::withCallingHandlers(...)
   10. │       └─vctrs::vec_rbind(!!!dots, .names_to = .id)
   11. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   12. │ └─rlang::names_inform_repair(orig_names, names)
   13. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   14. │     ├─base::withRestarts(...)
   15. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   16. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   17. │     └─base::signalCondition(cnd)
   18. │       ├─base::conditionMessage(cond)
   19. │       └─rlang:::conditionMessage.rlang_message(cond)
   20. │         └─rlang::cnd_message(c)
   21. │           └─rlang:::cnd_message_format(cnd, ...)
   22. │             └─rlang (local) cli_format(glue_escape(lines))
   23. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   24. │                 └─cli::cli_format(x, .envir = emptyenv())
   25. │                   └─cli:::fmt(...)
   26. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   27. │                       ├─base::do.call(app[[msg$type]], msg$args)
   28. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-2454", class = NULL)
   29. │                         └─cli:::clii_bullets(app, text, id, class)
   30. │                           └─base::lapply(...)
   31. │                             └─cli (local) FUN(X[[i]], ...)
   32. │                               └─app$text(text[[i]])
   33. │                                 └─cli:::clii_text(app, text)
   34. │                                   └─app$xtext(text)
   35. │                                     └─cli:::clii__xtext(...)
   36. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   37. │                                         └─base::lapply(pars, ansi_trimws)
   38. │                                           └─cli (local) FUN(X[[i]], ...)
   39. └─base::.handleSimpleError(...)
   40.   └─dplyr (local) h(simpleError(msg, call))
   41.     └─rlang::cnd_signal(cnd)
  ── Error (test-get_data.R:114:3): Design, samples, sampled_data, data work ─────
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─optimall::apply_multiwave(...) at test-get_data.R:114:2
    2. ├─optimall::apply_multiwave(...)
    3. │ └─optimall::allocate_wave(...)
    4. │   └─optimall::optimum_allocation(...)
    5. │     ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    6. │     │ └─base::withCallingHandlers(...)
    7. │     └─dplyr::bind_rows(priority_array)
    8. │       ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    9. │       │ └─base::withCallingHandlers(...)
   10. │       └─vctrs::vec_rbind(!!!dots, .names_to = .id)
   11. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   12. │ └─rlang::names_inform_repair(orig_names, names)
   13. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   14. │     ├─base::withRestarts(...)
   15. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   16. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   17. │     └─base::signalCondition(cnd)
   18. │       ├─base::conditionMessage(cond)
   19. │       └─rlang:::conditionMessage.rlang_message(cond)
   20. │         └─rlang::cnd_message(c)
   21. │           └─rlang:::cnd_message_format(cnd, ...)
   22. │             └─rlang (local) cli_format(glue_escape(lines))
   23. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   24. │                 └─cli::cli_format(x, .envir = emptyenv())
   25. │                   └─cli:::fmt(...)
   26. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   27. │                       ├─base::do.call(app[[msg$type]], msg$args)
   28. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-2928", class = NULL)
   29. │                         └─cli:::clii_bullets(app, text, id, class)
   30. │                           └─base::lapply(...)
   31. │                             └─cli (local) FUN(X[[i]], ...)
   32. │                               └─app$text(text[[i]])
   33. │                                 └─cli:::clii_text(app, text)
   34. │                                   └─app$xtext(text)
   35. │                                     └─cli:::clii__xtext(...)
   36. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   37. │                                         └─base::lapply(pars, ansi_trimws)
   38. │                                           └─cli (local) FUN(X[[i]], ...)
   39. └─base::.handleSimpleError(...)
   40.   └─dplyr (local) h(simpleError(msg, call))
   41.     └─rlang::cnd_signal(cnd)
  ── Error (test-optimum_allocation.R:44:3): WrightI and WrightII work ───────────
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-optimum_allocation.R:44:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─optimall::optimum_allocation(...)
    5. │ ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    6. │ │ └─base::withCallingHandlers(...)
    7. │ └─dplyr::bind_rows(priority_array)
    8. │   ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    9. │   │ └─base::withCallingHandlers(...)
   10. │   └─vctrs::vec_rbind(!!!dots, .names_to = .id)
   11. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   12. │ └─rlang::names_inform_repair(orig_names, names)
   13. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   14. │     ├─base::withRestarts(...)
   15. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   16. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   17. │     └─base::signalCondition(cnd)
   18. │       ├─base::conditionMessage(cond)
   19. │       └─rlang:::conditionMessage.rlang_message(cond)
   20. │         └─rlang::cnd_message(c)
   21. │           └─rlang:::cnd_message_format(cnd, ...)
   22. │             └─rlang (local) cli_format(glue_escape(lines))
   23. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   24. │                 └─cli::cli_format(x, .envir = emptyenv())
   25. │                   └─cli:::fmt(...)
   26. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   27. │                       ├─base::do.call(app[[msg$type]], msg$args)
   28. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-3018", class = NULL)
   29. │                         └─cli:::clii_bullets(app, text, id, class)
   30. │                           └─base::lapply(...)
   31. │                             └─cli (local) FUN(X[[i]], ...)
   32. │                               └─app$text(text[[i]])
   33. │                                 └─cli:::clii_text(app, text)
   34. │                                   └─app$xtext(text)
   35. │                                     └─cli:::clii__xtext(...)
   36. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   37. │                                         └─base::lapply(pars, ansi_trimws)
   38. │                                           └─cli (local) FUN(X[[i]], ...)
   39. └─base::.handleSimpleError(...)
   40.   └─dplyr (local) h(simpleError(msg, call))
   41.     └─rlang::cnd_signal(cnd)
  ── Error (test-optimum_allocation.R:90:3): Output agrees whether input is matrix, df, or tibble ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-optimum_allocation.R:90:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─optimall::optimum_allocation(...)
    5. │ ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    6. │ │ └─base::withCallingHandlers(...)
    7. │ └─dplyr::bind_rows(priority_array)
    8. │   ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    9. │   │ └─base::withCallingHandlers(...)
   10. │   └─vctrs::vec_rbind(!!!dots, .names_to = .id)
   11. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   12. │ └─rlang::names_inform_repair(orig_names, names)
   13. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   14. │     ├─base::withRestarts(...)
   15. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   16. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   17. │     └─base::signalCondition(cnd)
   18. │       ├─base::conditionMessage(cond)
   19. │       └─rlang:::conditionMessage.rlang_message(cond)
   20. │         └─rlang::cnd_message(c)
   21. │           └─rlang:::cnd_message_format(cnd, ...)
   22. │             └─rlang (local) cli_format(glue_escape(lines))
   23. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   24. │                 └─cli::cli_format(x, .envir = emptyenv())
   25. │                   └─cli:::fmt(...)
   26. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   27. │                       ├─base::do.call(app[[msg$type]], msg$args)
   28. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-3072", class = NULL)
   29. │                         └─cli:::clii_bullets(app, text, id, class)
   30. │                           └─base::lapply(...)
   31. │                             └─cli (local) FUN(X[[i]], ...)
   32. │                               └─app$text(text[[i]])
   33. │                                 └─cli:::clii_text(app, text)
   34. │                                   └─app$xtext(text)
   35. │                                     └─cli:::clii__xtext(...)
   36. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   37. │                                         └─base::lapply(pars, ansi_trimws)
   38. │                                           └─cli (local) FUN(X[[i]], ...)
   39. └─base::.handleSimpleError(...)
   40.   └─dplyr (local) h(simpleError(msg, call))
   41.     └─rlang::cnd_signal(cnd)
  ── Error (test-optimum_allocation.R:151:3): multiple strings in  the 'strata' argument lead to the
            creation of new strata based on their interaction ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-optimum_allocation.R:151:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─optimall::optimum_allocation(...)
    5. │ ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    6. │ │ └─base::withCallingHandlers(...)
    7. │ └─dplyr::bind_rows(priority_array)
    8. │   ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    9. │   │ └─base::withCallingHandlers(...)
   10. │   └─vctrs::vec_rbind(!!!dots, .names_to = .id)
   11. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   12. │ └─rlang::names_inform_repair(orig_names, names)
   13. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   14. │     ├─base::withRestarts(...)
   15. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   16. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   17. │     └─base::signalCondition(cnd)
   18. │       ├─base::conditionMessage(cond)
   19. │       └─rlang:::conditionMessage.rlang_message(cond)
   20. │         └─rlang::cnd_message(c)
   21. │           └─rlang:::cnd_message_format(cnd, ...)
   22. │             └─rlang (local) cli_format(glue_escape(lines))
   23. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   24. │                 └─cli::cli_format(x, .envir = emptyenv())
   25. │                   └─cli:::fmt(...)
   26. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   27. │                       ├─base::do.call(app[[msg$type]], msg$args)
   28. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-3294", class = NULL)
   29. │                         └─cli:::clii_bullets(app, text, id, class)
   30. │                           └─base::lapply(...)
   31. │                             └─cli (local) FUN(X[[i]], ...)
   32. │                               └─app$text(text[[i]])
   33. │                                 └─cli:::clii_text(app, text)
   34. │                                   └─app$xtext(text)
   35. │                                     └─cli:::clii__xtext(...)
   36. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   37. │                                         └─base::lapply(pars, ansi_trimws)
   38. │                                           └─cli (local) FUN(X[[i]], ...)
   39. └─base::.handleSimpleError(...)
   40.   └─dplyr (local) h(simpleError(msg, call))
   41.     └─rlang::cnd_signal(cnd)
  ── Error (test-optimum_allocation.R:212:3): WrightI and WrightII work ──────────
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-optimum_allocation.R:212:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─optimall::optimum_allocation(...)
    5. │ ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    6. │ │ └─base::withCallingHandlers(...)
    7. │ └─dplyr::bind_rows(priority_array)
    8. │   ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    9. │   │ └─base::withCallingHandlers(...)
   10. │   └─vctrs::vec_rbind(!!!dots, .names_to = .id)
   11. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   12. │ └─rlang::names_inform_repair(orig_names, names)
   13. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   14. │     ├─base::withRestarts(...)
   15. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   16. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   17. │     └─base::signalCondition(cnd)
   18. │       ├─base::conditionMessage(cond)
   19. │       └─rlang:::conditionMessage.rlang_message(cond)
   20. │         └─rlang::cnd_message(c)
   21. │           └─rlang:::cnd_message_format(cnd, ...)
   22. │             └─rlang (local) cli_format(glue_escape(lines))
   23. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   24. │                 └─cli::cli_format(x, .envir = emptyenv())
   25. │                   └─cli:::fmt(...)
   26. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   27. │                       ├─base::do.call(app[[msg$type]], msg$args)
   28. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-3384", class = NULL)
   29. │                         └─cli:::clii_bullets(app, text, id, class)
   30. │                           └─base::lapply(...)
   31. │                             └─cli (local) FUN(X[[i]], ...)
   32. │                               └─app$text(text[[i]])
   33. │                                 └─cli:::clii_text(app, text)
   34. │                                   └─app$xtext(text)
   35. │                                     └─cli:::clii__xtext(...)
   36. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   37. │                                         └─base::lapply(pars, ansi_trimws)
   38. │                                           └─cli (local) FUN(X[[i]], ...)
   39. └─base::.handleSimpleError(...)
   40.   └─dplyr (local) h(simpleError(msg, call))
   41.     └─rlang::cnd_signal(cnd)
  ── Error (test-optimum_allocation.R:293:3): Output agrees whether input is matrix, df, or tibble ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-optimum_allocation.R:293:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─optimall::optimum_allocation(...)
    5. │ ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    6. │ │ └─base::withCallingHandlers(...)
    7. │ └─dplyr::bind_rows(priority_array)
    8. │   ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    9. │   │ └─base::withCallingHandlers(...)
   10. │   └─vctrs::vec_rbind(!!!dots, .names_to = .id)
   11. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   12. │ └─rlang::names_inform_repair(orig_names, names)
   13. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   14. │     ├─base::withRestarts(...)
   15. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   16. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   17. │     └─base::signalCondition(cnd)
   18. │       ├─base::conditionMessage(cond)
   19. │       └─rlang:::conditionMessage.rlang_message(cond)
   20. │         └─rlang::cnd_message(c)
   21. │           └─rlang:::cnd_message_format(cnd, ...)
   22. │             └─rlang (local) cli_format(glue_escape(lines))
   23. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   24. │                 └─cli::cli_format(x, .envir = emptyenv())
   25. │                   └─cli:::fmt(...)
   26. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   27. │                       ├─base::do.call(app[[msg$type]], msg$args)
   28. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-3438", class = NULL)
   29. │                         └─cli:::clii_bullets(app, text, id, class)
   30. │                           └─base::lapply(...)
   31. │                             └─cli (local) FUN(X[[i]], ...)
   32. │                               └─app$text(text[[i]])
   33. │                                 └─cli:::clii_text(app, text)
   34. │                                   └─app$xtext(text)
   35. │                                     └─cli:::clii__xtext(...)
   36. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   37. │                                         └─base::lapply(pars, ansi_trimws)
   38. │                                           └─cli (local) FUN(X[[i]], ...)
   39. └─base::.handleSimpleError(...)
   40.   └─dplyr (local) h(simpleError(msg, call))
   41.     └─rlang::cnd_signal(cnd)
  ── Error (test-optimum_allocation.R:352:3): multiple strings in  the 'strata' argument lead to the
            creation of new strata based on their interaction ──
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-optimum_allocation.R:352:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─optimall::optimum_allocation(...)
    5. │ ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    6. │ │ └─base::withCallingHandlers(...)
    7. │ └─dplyr::bind_rows(priority_array)
    8. │   ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    9. │   │ └─base::withCallingHandlers(...)
   10. │   └─vctrs::vec_rbind(!!!dots, .names_to = .id)
   11. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   12. │ └─rlang::names_inform_repair(orig_names, names)
   13. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   14. │     ├─base::withRestarts(...)
   15. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   16. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   17. │     └─base::signalCondition(cnd)
   18. │       ├─base::conditionMessage(cond)
   19. │       └─rlang:::conditionMessage.rlang_message(cond)
   20. │         └─rlang::cnd_message(c)
   21. │           └─rlang:::cnd_message_format(cnd, ...)
   22. │             └─rlang (local) cli_format(glue_escape(lines))
   23. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   24. │                 └─cli::cli_format(x, .envir = emptyenv())
   25. │                   └─cli:::fmt(...)
   26. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   27. │                       ├─base::do.call(app[[msg$type]], msg$args)
   28. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-3660", class = NULL)
   29. │                         └─cli:::clii_bullets(app, text, id, class)
   30. │                           └─base::lapply(...)
   31. │                             └─cli (local) FUN(X[[i]], ...)
   32. │                               └─app$text(text[[i]])
   33. │                                 └─cli:::clii_text(app, text)
   34. │                                   └─app$xtext(text)
   35. │                                     └─cli:::clii__xtext(...)
   36. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   37. │                                         └─base::lapply(pars, ansi_trimws)
   38. │                                           └─cli (local) FUN(X[[i]], ...)
   39. └─base::.handleSimpleError(...)
   40.   └─dplyr (local) h(simpleError(msg, call))
   41.     └─rlang::cnd_signal(cnd)
  ── Error (test-sample_strata.R:19:1): (code run outside of `test_that()`) ──────
  Error in `dplyr::bind_rows(priority_array)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─optimall::allocate_wave(...) at test-sample_strata.R:19:0
    2. │ └─optimall::optimum_allocation(...)
    3. │   ├─base::suppressMessages(Wright_output <- dplyr::bind_rows(priority_array))
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─dplyr::bind_rows(priority_array)
    6. │     ├─dplyr:::fix_call(vec_rbind(!!!dots, .names_to = .id))
    7. │     │ └─base::withCallingHandlers(...)
    8. │     └─vctrs::vec_rbind(!!!dots, .names_to = .id)
    9. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   10. │ └─rlang::names_inform_repair(orig_names, names)
   11. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   12. │     ├─base::withRestarts(...)
   13. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   14. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   15. │     └─base::signalCondition(cnd)
   16. │       ├─base::conditionMessage(cond)
   17. │       └─rlang:::conditionMessage.rlang_message(cond)
   18. │         └─rlang::cnd_message(c)
   19. │           └─rlang:::cnd_message_format(cnd, ...)
   20. │             └─rlang (local) cli_format(glue_escape(lines))
   21. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   22. │                 └─cli::cli_format(x, .envir = emptyenv())
   23. │                   └─cli:::fmt(...)
   24. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   25. │                       ├─base::do.call(app[[msg$type]], msg$args)
   26. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-3918", class = NULL)
   27. │                         └─cli:::clii_bullets(app, text, id, class)
   28. │                           └─base::lapply(...)
   29. │                             └─cli (local) FUN(X[[i]], ...)
   30. │                               └─app$text(text[[i]])
   31. │                                 └─cli:::clii_text(app, text)
   32. │                                   └─app$xtext(text)
   33. │                                     └─cli:::clii__xtext(...)
   34. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   35. │                                         └─base::lapply(pars, ansi_trimws)
   36. │                                           └─cli (local) FUN(X[[i]], ...)
   37. └─base::.handleSimpleError(...)
   38.   └─dplyr (local) h(simpleError(msg, call))
   39.     └─rlang::cnd_signal(cnd)
  
  [ FAIL 17 | WARN 0 | SKIP 0 | PASS 137 ]
  Error: Test failures
  Execution halted