Running ‘testthat.R’ [5s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(mshap)
  > 
  > test_check("mshap")
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 14 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-mshap.R:36:3): Basic case works ─────────────────────────────────
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─mshap::mshap(...) at test-mshap.R:36:2
    2. │ └─mshap:::multiply_shap(...)
    3. │   ├─... %>% suppressMessages()
    4. │   └─purrr::map_dfc(...)
    5. │     └─dplyr::bind_cols(res)
    6. │       ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
    7. │       │ └─base::withCallingHandlers(...)
    8. │       └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
    9. ├─base::suppressMessages(.)
   10. │ └─base::withCallingHandlers(...)
   11. ├─magrittr::set_colnames(., colnames(shap_1))
   12. │ └─base::is.data.frame(x)
   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-54", 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-mshap.R:48:3): Multi Case Works ─────────────────────────────────
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─mshap::mshap(shap_1 = shap1, shap_2 = shap2, ex_1 = ex1, ex_2 = ex2) at test-mshap.R:48:2
    2. │ └─purrr::map2(...)
    3. │   └─mshap (local) .f(.x[[i]], .y[[i]], ...)
    4. │     └─mshap:::multiply_shap(...)
    5. │       ├─... %>% suppressMessages()
    6. │       └─purrr::map_dfc(...)
    7. │         └─dplyr::bind_cols(res)
    8. │           ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
    9. │           │ └─base::withCallingHandlers(...)
   10. │           └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   11. ├─base::suppressMessages(.)
   12. │ └─base::withCallingHandlers(...)
   13. ├─magrittr::set_colnames(., colnames(shap_1))
   14. │ └─base::is.data.frame(x)
   15. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   16. │ └─rlang::names_inform_repair(orig_names, names)
   17. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   18. │     ├─base::withRestarts(...)
   19. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   21. │     └─base::signalCondition(cnd)
   22. │       ├─base::conditionMessage(cond)
   23. │       └─rlang:::conditionMessage.rlang_message(cond)
   24. │         └─rlang::cnd_message(c)
   25. │           └─rlang:::cnd_message_format(cnd, ...)
   26. │             └─rlang (local) cli_format(glue_escape(lines))
   27. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   28. │                 └─cli::cli_format(x, .envir = emptyenv())
   29. │                   └─cli:::fmt(...)
   30. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   31. │                       ├─base::do.call(app[[msg$type]], msg$args)
   32. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-2553110-108", class = NULL)
   33. │                         └─cli:::clii_bullets(app, text, id, class)
   34. │                           └─base::lapply(...)
   35. │                             └─cli (local) FUN(X[[i]], ...)
   36. │                               └─app$text(text[[i]])
   37. │                                 └─cli:::clii_text(app, text)
   38. │                                   └─app$xtext(text)
   39. │                                     └─cli:::clii__xtext(...)
   40. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   41. │                                         └─base::lapply(pars, ansi_trimws)
   42. │                                           └─cli (local) FUN(X[[i]], ...)
   43. └─base::.handleSimpleError(...)
   44.   └─dplyr (local) h(simpleError(msg, call))
   45.     └─rlang::cnd_signal(cnd)
  ── Error (test-mshap.R:67:3): Different Names Works ────────────────────────────
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─mshap::mshap(...) at test-mshap.R:67:2
    2. │ └─purrr::map2(...)
    3. │   └─mshap (local) .f(.x[[i]], .y[[i]], ...)
    4. │     └─mshap:::multiply_shap(...)
    5. │       ├─... %>% suppressMessages()
    6. │       └─purrr::map_dfc(...)
    7. │         └─dplyr::bind_cols(res)
    8. │           ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
    9. │           │ └─base::withCallingHandlers(...)
   10. │           └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   11. ├─base::suppressMessages(.)
   12. │ └─base::withCallingHandlers(...)
   13. ├─magrittr::set_colnames(., colnames(shap_1))
   14. │ └─base::is.data.frame(x)
   15. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   16. │ └─rlang::names_inform_repair(orig_names, names)
   17. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   18. │     ├─base::withRestarts(...)
   19. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   21. │     └─base::signalCondition(cnd)
   22. │       ├─base::conditionMessage(cond)
   23. │       └─rlang:::conditionMessage.rlang_message(cond)
   24. │         └─rlang::cnd_message(c)
   25. │           └─rlang:::cnd_message_format(cnd, ...)
   26. │             └─rlang (local) cli_format(glue_escape(lines))
   27. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   28. │                 └─cli::cli_format(x, .envir = emptyenv())
   29. │                   └─cli:::fmt(...)
   30. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   31. │                       ├─base::do.call(app[[msg$type]], msg$args)
   32. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-2553110-186", class = NULL)
   33. │                         └─cli:::clii_bullets(app, text, id, class)
   34. │                           └─base::lapply(...)
   35. │                             └─cli (local) FUN(X[[i]], ...)
   36. │                               └─app$text(text[[i]])
   37. │                                 └─cli:::clii_text(app, text)
   38. │                                   └─app$xtext(text)
   39. │                                     └─cli:::clii__xtext(...)
   40. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   41. │                                         └─base::lapply(pars, ansi_trimws)
   42. │                                           └─cli (local) FUN(X[[i]], ...)
   43. └─base::.handleSimpleError(...)
   44.   └─dplyr (local) h(simpleError(msg, call))
   45.     └─rlang::cnd_signal(cnd)
  ── Error (test-mshap.R:80:3): Matrices Work ────────────────────────────────────
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─mshap::mshap(...) at test-mshap.R:80:2
    2. │ └─mshap:::multiply_shap(...)
    3. │   ├─... %>% suppressMessages()
    4. │   └─purrr::map_dfc(...)
    5. │     └─dplyr::bind_cols(res)
    6. │       ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
    7. │       │ └─base::withCallingHandlers(...)
    8. │       └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
    9. ├─base::suppressMessages(.)
   10. │ └─base::withCallingHandlers(...)
   11. ├─magrittr::set_colnames(., colnames(shap_1))
   12. │ └─base::is.data.frame(x)
   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-240", 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-mshap.R:92:3): Warnings Work ────────────────────────────────────
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test-mshap.R:92:2
    2. │ └─testthat:::expect_condition_matching(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─mshap::mshap(...)
    8. │ └─mshap:::multiply_shap(...)
    9. │   ├─... %>% suppressMessages()
   10. │   └─purrr::map_dfc(...)
   11. │     └─dplyr::bind_cols(res)
   12. │       ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   13. │       │ └─base::withCallingHandlers(...)
   14. │       └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   15. ├─base::suppressMessages(.)
   16. │ └─base::withCallingHandlers(...)
   17. ├─magrittr::set_colnames(., colnames(shap_1))
   18. │ └─base::is.data.frame(x)
   19. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   20. │ └─rlang::names_inform_repair(orig_names, names)
   21. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   22. │     ├─base::withRestarts(...)
   23. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   24. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   25. │     └─base::signalCondition(cnd)
   26. │       ├─base::conditionMessage(cond)
   27. │       └─rlang:::conditionMessage.rlang_message(cond)
   28. │         └─rlang::cnd_message(c)
   29. │           └─rlang:::cnd_message_format(cnd, ...)
   30. │             └─rlang (local) cli_format(glue_escape(lines))
   31. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   32. │                 └─cli::cli_format(x, .envir = emptyenv())
   33. │                   └─cli:::fmt(...)
   34. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   35. │                       ├─base::do.call(app[[msg$type]], msg$args)
   36. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-2553110-294", class = NULL)
   37. │                         └─cli:::clii_bullets(app, text, id, class)
   38. │                           └─base::lapply(...)
   39. │                             └─cli (local) FUN(X[[i]], ...)
   40. │                               └─app$text(text[[i]])
   41. │                                 └─cli:::clii_text(app, text)
   42. │                                   └─app$xtext(text)
   43. │                                     └─cli:::clii__xtext(...)
   44. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   45. │                                         └─base::lapply(pars, ansi_trimws)
   46. │                                           └─cli (local) FUN(X[[i]], ...)
   47. └─base::.handleSimpleError(...)
   48.   └─dplyr (local) h(simpleError(msg, call))
   49.     └─rlang::cnd_signal(cnd)
  
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 14 ]
  Error: Test failures
  Execution halted