Running ‘testthat.R’ [4s/6s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(riskCommunicator)
  > 
  > testthat::test_check("riskCommunicator")
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 23 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-gcomp.R:18:3): outcome is expected value ────────────────────────
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-gcomp.R:18:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─riskCommunicator::gComp(...)
    5. │ └─riskCommunicator::pointEstimate(...)
    6. │   └─riskCommunicator:::make_predict_df(...)
    7. │     ├─base::suppressMessages(...)
    8. │     │ └─base::withCallingHandlers(...)
    9. │     └─purrr::map_dfc(...)
   10. │       └─dplyr::bind_cols(res)
   11. │         ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   12. │         │ └─base::withCallingHandlers(...)
   13. │         └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   14. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   15. │ └─rlang::names_inform_repair(orig_names, names)
   16. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   17. │     ├─base::withRestarts(...)
   18. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   19. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   20. │     └─base::signalCondition(cnd)
   21. │       ├─base::conditionMessage(cond)
   22. │       └─rlang:::conditionMessage.rlang_message(cond)
   23. │         └─rlang::cnd_message(c)
   24. │           └─rlang:::cnd_message_format(cnd, ...)
   25. │             └─rlang (local) cli_format(glue_escape(lines))
   26. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   27. │                 └─cli::cli_format(x, .envir = emptyenv())
   28. │                   └─cli:::fmt(...)
   29. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   30. │                       ├─base::do.call(app[[msg$type]], msg$args)
   31. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-2553110-30", class = NULL)
   32. │                         └─cli:::clii_bullets(app, text, id, class)
   33. │                           └─base::lapply(...)
   34. │                             └─cli (local) FUN(X[[i]], ...)
   35. │                               └─app$text(text[[i]])
   36. │                                 └─cli:::clii_text(app, text)
   37. │                                   └─app$xtext(text)
   38. │                                     └─cli:::clii__xtext(...)
   39. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   40. │                                         └─base::lapply(pars, ansi_trimws)
   41. │                                           └─cli (local) FUN(X[[i]], ...)
   42. └─base::.handleSimpleError(...)
   43.   └─dplyr (local) h(simpleError(msg, call))
   44.     └─rlang::cnd_signal(cnd)
  ── Error (test-gcomp.R:71:3): class is correct ─────────────────────────────────
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test-gcomp.R:71:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─riskCommunicator::gComp(...)
    5. │ └─riskCommunicator::pointEstimate(...)
    6. │   └─riskCommunicator:::make_predict_df(...)
    7. │     ├─base::suppressMessages(...)
    8. │     │ └─base::withCallingHandlers(...)
    9. │     └─purrr::map_dfc(...)
   10. │       └─dplyr::bind_cols(res)
   11. │         ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   12. │         │ └─base::withCallingHandlers(...)
   13. │         └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   14. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   15. │ └─rlang::names_inform_repair(orig_names, names)
   16. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   17. │     ├─base::withRestarts(...)
   18. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   19. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   20. │     └─base::signalCondition(cnd)
   21. │       ├─base::conditionMessage(cond)
   22. │       └─rlang:::conditionMessage.rlang_message(cond)
   23. │         └─rlang::cnd_message(c)
   24. │           └─rlang:::cnd_message_format(cnd, ...)
   25. │             └─rlang (local) cli_format(glue_escape(lines))
   26. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   27. │                 └─cli::cli_format(x, .envir = emptyenv())
   28. │                   └─cli:::fmt(...)
   29. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   30. │                       ├─base::do.call(app[[msg$type]], msg$args)
   31. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-2553110-60", class = NULL)
   32. │                         └─cli:::clii_bullets(app, text, id, class)
   33. │                           └─base::lapply(...)
   34. │                             └─cli (local) FUN(X[[i]], ...)
   35. │                               └─app$text(text[[i]])
   36. │                                 └─cli:::clii_text(app, text)
   37. │                                   └─app$xtext(text)
   38. │                                     └─cli:::clii__xtext(...)
   39. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   40. │                                         └─base::lapply(pars, ansi_trimws)
   41. │                                           └─cli (local) FUN(X[[i]], ...)
   42. └─base::.handleSimpleError(...)
   43.   └─dplyr (local) h(simpleError(msg, call))
   44.     └─rlang::cnd_signal(cnd)
  ── Error (test-pointestimate.R:55:3): outcome is expected value ────────────────
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-pointestimate.R:55:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─riskCommunicator::pointEstimate(...)
    5. │ └─riskCommunicator:::make_predict_df(...)
    6. │   ├─base::suppressMessages(...)
    7. │   │ └─base::withCallingHandlers(...)
    8. │   └─purrr::map_dfc(...)
    9. │     └─dplyr::bind_cols(res)
   10. │       ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   11. │       │ └─base::withCallingHandlers(...)
   12. │       └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   13. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   14. │ └─rlang::names_inform_repair(orig_names, names)
   15. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   16. │     ├─base::withRestarts(...)
   17. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   18. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   19. │     └─base::signalCondition(cnd)
   20. │       ├─base::conditionMessage(cond)
   21. │       └─rlang:::conditionMessage.rlang_message(cond)
   22. │         └─rlang::cnd_message(c)
   23. │           └─rlang:::cnd_message_format(cnd, ...)
   24. │             └─rlang (local) cli_format(glue_escape(lines))
   25. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   26. │                 └─cli::cli_format(x, .envir = emptyenv())
   27. │                   └─cli:::fmt(...)
   28. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   29. │                       ├─base::do.call(app[[msg$type]], msg$args)
   30. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-2553110-90", class = NULL)
   31. │                         └─cli:::clii_bullets(app, text, id, class)
   32. │                           └─base::lapply(...)
   33. │                             └─cli (local) FUN(X[[i]], ...)
   34. │                               └─app$text(text[[i]])
   35. │                                 └─cli:::clii_text(app, text)
   36. │                                   └─app$xtext(text)
   37. │                                     └─cli:::clii__xtext(...)
   38. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   39. │                                         └─base::lapply(pars, ansi_trimws)
   40. │                                           └─cli (local) FUN(X[[i]], ...)
   41. └─base::.handleSimpleError(...)
   42.   └─dplyr (local) h(simpleError(msg, call))
   43.     └─rlang::cnd_signal(cnd)
  ── Error (test-print.gcomp.R:3:1): (code run outside of `test_that()`) ─────────
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_output(...) at test-print.gcomp.R:3:0
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(path, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─base::print(...)
   11. ├─riskCommunicator::gComp(...)
   12. │ └─riskCommunicator::pointEstimate(...)
   13. │   └─riskCommunicator:::make_predict_df(...)
   14. │     ├─base::suppressMessages(...)
   15. │     │ └─base::withCallingHandlers(...)
   16. │     └─purrr::map_dfc(...)
   17. │       └─dplyr::bind_cols(res)
   18. │         ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   19. │         │ └─base::withCallingHandlers(...)
   20. │         └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   21. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   22. │ └─rlang::names_inform_repair(orig_names, names)
   23. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   24. │     ├─base::withRestarts(...)
   25. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   26. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   27. │     └─base::signalCondition(cnd)
   28. │       ├─base::conditionMessage(cond)
   29. │       └─rlang:::conditionMessage.rlang_message(cond)
   30. │         └─rlang::cnd_message(c)
   31. │           └─rlang:::cnd_message_format(cnd, ...)
   32. │             └─rlang (local) cli_format(glue_escape(lines))
   33. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   34. │                 └─cli::cli_format(x, .envir = emptyenv())
   35. │                   └─cli:::fmt(...)
   36. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   37. │                       ├─base::do.call(app[[msg$type]], msg$args)
   38. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-2553110-120", class = NULL)
   39. │                         └─cli:::clii_bullets(app, text, id, class)
   40. │                           └─base::lapply(...)
   41. │                             └─cli (local) FUN(X[[i]], ...)
   42. │                               └─app$text(text[[i]])
   43. │                                 └─cli:::clii_text(app, text)
   44. │                                   └─app$xtext(text)
   45. │                                     └─cli:::clii__xtext(...)
   46. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   47. │                                         └─base::lapply(pars, ansi_trimws)
   48. │                                           └─cli (local) FUN(X[[i]], ...)
   49. └─base::.handleSimpleError(...)
   50.   └─dplyr (local) h(simpleError(msg, call))
   51.     └─rlang::cnd_signal(cnd)
  ── Error (test-summary.gcomp.R:3:1): (code run outside of `test_that()`) ───────
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_output(...) at test-summary.gcomp.R:3:0
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─testthat::capture_output_lines(code, print, width = width)
    5. │   │   └─testthat:::eval_with_output(code, print = print, width = width)
    6. │   │     ├─withr::with_output_sink(path, withVisible(code))
    7. │   │     │ └─base::force(code)
    8. │   │     └─base::withVisible(code)
    9. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   10. ├─base::print(...)
   11. ├─base::summary(...)
   12. ├─riskCommunicator::gComp(...)
   13. │ └─riskCommunicator::pointEstimate(...)
   14. │   └─riskCommunicator:::make_predict_df(...)
   15. │     ├─base::suppressMessages(...)
   16. │     │ └─base::withCallingHandlers(...)
   17. │     └─purrr::map_dfc(...)
   18. │       └─dplyr::bind_cols(res)
   19. │         ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   20. │         │ └─base::withCallingHandlers(...)
   21. │         └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   22. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   23. │ └─rlang::names_inform_repair(orig_names, names)
   24. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   25. │     ├─base::withRestarts(...)
   26. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   27. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   28. │     └─base::signalCondition(cnd)
   29. │       ├─base::conditionMessage(cond)
   30. │       └─rlang:::conditionMessage.rlang_message(cond)
   31. │         └─rlang::cnd_message(c)
   32. │           └─rlang:::cnd_message_format(cnd, ...)
   33. │             └─rlang (local) cli_format(glue_escape(lines))
   34. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   35. │                 └─cli::cli_format(x, .envir = emptyenv())
   36. │                   └─cli:::fmt(...)
   37. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   38. │                       ├─base::do.call(app[[msg$type]], msg$args)
   39. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-2553110-150", class = NULL)
   40. │                         └─cli:::clii_bullets(app, text, id, class)
   41. │                           └─base::lapply(...)
   42. │                             └─cli (local) FUN(X[[i]], ...)
   43. │                               └─app$text(text[[i]])
   44. │                                 └─cli:::clii_text(app, text)
   45. │                                   └─app$xtext(text)
   46. │                                     └─cli:::clii__xtext(...)
   47. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   48. │                                         └─base::lapply(pars, ansi_trimws)
   49. │                                           └─cli (local) FUN(X[[i]], ...)
   50. └─base::.handleSimpleError(...)
   51.   └─dplyr (local) h(simpleError(msg, call))
   52.     └─rlang::cnd_signal(cnd)
  
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 23 ]
  Error: Test failures
  Execution halted