Running 'testthat.R' [41s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(xrf)
  > 
  > test_check("xrf")
  [ FAIL 7 | WARN 0 | SKIP 0 | PASS 6 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_model.R:38:3): model from dense design matrix has expected fields ──
  Error in `bind_cols(per_rule_evaluation$rule_evaluation)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─xrf::xrf(...) at test_model.R:38:2
    2. ├─xrf:::xrf.formula(...)
    3. │ └─xrf:::evaluate_rules_dense_only(rules, design_matrix)
    4. │   └─dplyr::bind_cols(per_rule_evaluation$rule_evaluation)
    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-138", 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_model.R:47:3): model from sparse design matrix has expected fields ──
  Error in `bind_cols(per_rule_evaluation$rule_evaluation)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─xrf::xrf(...) at test_model.R:47:2
    2. ├─xrf:::xrf.formula(...)
    3. │ └─xrf:::evaluate_rules(rules, design_matrix)
    4. │   └─dplyr::bind_cols(per_rule_evaluation$rule_evaluation)
    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-276", 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_model.R:54:3): model predicts binary outcome ────────────────────
  Error in `bind_cols(per_rule_evaluation$rule_evaluation)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─xrf::xrf(...) at test_model.R:54:2
    2. ├─xrf:::xrf.formula(...)
    3. │ └─xrf:::evaluate_rules(rules, design_matrix)
    4. │   └─dplyr::bind_cols(per_rule_evaluation$rule_evaluation)
    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-426", 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_model.R:72:3): model predicts continuous outcome ────────────────
  Error in `bind_cols(per_rule_evaluation$rule_evaluation)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─xrf::xrf(...) at test_model.R:72:2
    2. ├─xrf:::xrf.formula(...)
    3. │ └─xrf:::evaluate_rules(rules, design_matrix)
    4. │   └─dplyr::bind_cols(per_rule_evaluation$rule_evaluation)
    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-540", 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_model.R:86:3): model predicts without outcome column ────────────
  Error in `bind_cols(per_rule_evaluation$rule_evaluation)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─xrf::xrf(...) at test_model.R:86:2
    2. ├─xrf:::xrf.formula(...)
    3. │ └─xrf:::evaluate_rules(rules, design_matrix)
    4. │   └─dplyr::bind_cols(per_rule_evaluation$rule_evaluation)
    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-714", 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_model.R:99:3): call scrubbed ────────────────────────────────────
  Error in `bind_cols(per_rule_evaluation$rule_evaluation)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─xrf::xrf(...) at test_model.R:99:2
    2. ├─xrf:::xrf.formula(...)
    3. │ └─xrf:::evaluate_rules_dense_only(rules, design_matrix)
    4. │   └─dplyr::bind_cols(per_rule_evaluation$rule_evaluation)
    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-888", 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_model.R:115:3): single feature model ────────────────────────────
  Error in `bind_cols(per_rule_evaluation$rule_evaluation)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─xrf::xrf(...) at test_model.R:115:2
    2. ├─xrf:::xrf.formula(...)
    3. │ └─xrf:::evaluate_rules_dense_only(rules, design_matrix)
    4. │   └─dplyr::bind_cols(per_rule_evaluation$rule_evaluation)
    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-1014", 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)
  
  [ FAIL 7 | WARN 0 | SKIP 0 | PASS 6 ]
  Error: Test failures
  Execution halted