Running 'testthat.R' [30s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(scoringTools)
  > 
  > test_check("scoringTools")
  Generalized Linear Model of class 'speedglm':
  
  Call:  speedglm::speedglm(formula = labels ~ ., data = df_augmente[,      -which(names(df_augmente) %in% c("poidsfinal", "classe_SCORE"))][!df_augmente$poidsfinal ==      0, ], family = stats::binomial(link = "logit"), weights = df_augmente$poidsfinal[!df_augmente$poidsfinal ==      0]) 
  
  Coefficients:
  (Intercept)          x.1          x.2  
         0.65         1.32        -2.46  
  
  [ FAIL 17 | WARN 8 | SKIP 0 | PASS 147 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-chi2.R:18:9): chi2 method works with speedglm and glm on matrices ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─scoringTools::chi2_iter(...) at test-chi2.R:18:8
    2. │ └─scoringTools:::calculate_criterlist(...)
    3. │   ├─base::cbind(...)
    4. │   ├─base::data.frame(...)
    5. │   ├─base::sapply(...)
    6. │   │ └─base::lapply(X = X, FUN = FUN, ...)
    7. │   ├─base::data.frame(...)
    8. │   ├─scoringTools:::discretize_cutp(...)
    9. │   │ └─base::ncol(cont_train_set)
   10. │   └─... %>% as.data.frame()
   11. ├─base::as.data.frame(.)
   12. ├─dplyr::select_if(., function(col) !is.factor(col))
   13. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   14. │   └─dplyr::tbl_vars(.tbl)
   15. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   16. │     │ └─base::structure(...)
   17. │     └─dplyr:::tbl_vars_dispatch(x)
   18. ├─dplyr::as_tibble(., .name_repair = "unique")
   19. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   20. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   21. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   22. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   23. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   24. │       ├─rlang::set_names(...)
   25. │       └─tibble:::repaired_names(...)
   26. │         ├─tibble:::subclass_name_repair_errors(...)
   27. │         │ └─base::withCallingHandlers(...)
   28. │         └─vctrs::vec_as_names(...)
   29. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   30.   └─rlang::names_inform_repair(orig_names, names)
   31.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   32.       ├─base::withRestarts(...)
   33.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   34.       │   └─base (local) doWithOneRestart(return(expr), restart)
   35.       └─base::signalCondition(cnd)
   36.         ├─base::conditionMessage(cond)
   37.         └─rlang:::conditionMessage.rlang_message(cond)
   38.           └─rlang::cnd_message(c)
   39.             └─rlang:::cnd_message_format(cnd, ...)
   40.               └─rlang (local) cli_format(glue_escape(lines))
   41.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   42.                   └─cli::cli_format(x, .envir = emptyenv())
   43.                     └─cli:::fmt(...)
   44.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   45.                         ├─base::do.call(app[[msg$type]], msg$args)
   46.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-30", class = NULL)
   47.                           └─cli:::clii_bullets(app, text, id, class)
   48.                             └─base::lapply(...)
   49.                               └─cli (local) FUN(X[[i]], ...)
   50.                                 └─app$text(text[[i]])
   51.                                   └─cli:::clii_text(app, text)
   52.                                     └─app$xtext(text)
   53.                                       └─cli:::clii__xtext(...)
   54.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   55.                                           └─base::lapply(pars, ansi_trimws)
   56.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (???): chi2 method works with speedglm and glm on dataframes with additional factors ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...)
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─scoringTools::chi2_iter(...)
    7. │ └─scoringTools:::calculate_criterlist(...)
    8. │   ├─base::cbind(...)
    9. │   ├─base::data.frame(...)
   10. │   ├─base::sapply(...)
   11. │   │ └─base::lapply(X = X, FUN = FUN, ...)
   12. │   ├─base::data.frame(...)
   13. │   ├─scoringTools:::discretize_cutp(...)
   14. │   │ └─base::ncol(cont_train_set)
   15. │   └─... %>% as.data.frame()
   16. ├─base::as.data.frame(.)
   17. ├─dplyr::select_if(., function(col) !is.factor(col))
   18. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   19. │   └─dplyr::tbl_vars(.tbl)
   20. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21. │     │ └─base::structure(...)
   22. │     └─dplyr:::tbl_vars_dispatch(x)
   23. ├─dplyr::as_tibble(., .name_repair = "unique")
   24. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   25. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   26. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   27. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   28. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   29. │       ├─rlang::set_names(...)
   30. │       └─tibble:::repaired_names(...)
   31. │         ├─tibble:::subclass_name_repair_errors(...)
   32. │         │ └─base::withCallingHandlers(...)
   33. │         └─vctrs::vec_as_names(...)
   34. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   35.   └─rlang::names_inform_repair(orig_names, names)
   36.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   37.       ├─base::withRestarts(...)
   38.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   39.       │   └─base (local) doWithOneRestart(return(expr), restart)
   40.       └─base::signalCondition(cnd)
   41.         ├─base::conditionMessage(cond)
   42.         └─rlang:::conditionMessage.rlang_message(cond)
   43.           └─rlang::cnd_message(c)
   44.             └─rlang:::cnd_message_format(cnd, ...)
   45.               └─rlang (local) cli_format(glue_escape(lines))
   46.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   47.                   └─cli::cli_format(x, .envir = emptyenv())
   48.                     └─cli:::fmt(...)
   49.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   50.                         ├─base::do.call(app[[msg$type]], msg$args)
   51.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-60", class = NULL)
   52.                           └─cli:::clii_bullets(app, text, id, class)
   53.                             └─base::lapply(...)
   54.                               └─cli (local) FUN(X[[i]], ...)
   55.                                 └─app$text(text[[i]])
   56.                                   └─cli:::clii_text(app, text)
   57.                                     └─app$xtext(text)
   58.                                       └─cli:::clii__xtext(...)
   59.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   60.                                           └─base::lapply(pars, ansi_trimws)
   61.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test-chiM.R:18:9): chiM method works with speedglm and glm on matrices ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─scoringTools::chiM_iter(...) at test-chiM.R:18:8
    2. │ └─scoringTools:::calculate_criterlist(...)
    3. │   ├─base::cbind(...)
    4. │   ├─base::data.frame(...)
    5. │   ├─base::sapply(...)
    6. │   │ └─base::lapply(X = X, FUN = FUN, ...)
    7. │   ├─base::data.frame(...)
    8. │   ├─scoringTools:::discretize_cutp(...)
    9. │   │ └─base::ncol(cont_train_set)
   10. │   └─... %>% as.data.frame()
   11. ├─base::as.data.frame(.)
   12. ├─dplyr::select_if(., function(col) !is.factor(col))
   13. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   14. │   └─dplyr::tbl_vars(.tbl)
   15. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   16. │     │ └─base::structure(...)
   17. │     └─dplyr:::tbl_vars_dispatch(x)
   18. ├─dplyr::as_tibble(., .name_repair = "unique")
   19. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   20. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   21. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   22. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   23. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   24. │       ├─rlang::set_names(...)
   25. │       └─tibble:::repaired_names(...)
   26. │         ├─tibble:::subclass_name_repair_errors(...)
   27. │         │ └─base::withCallingHandlers(...)
   28. │         └─vctrs::vec_as_names(...)
   29. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   30.   └─rlang::names_inform_repair(orig_names, names)
   31.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   32.       ├─base::withRestarts(...)
   33.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   34.       │   └─base (local) doWithOneRestart(return(expr), restart)
   35.       └─base::signalCondition(cnd)
   36.         ├─base::conditionMessage(cond)
   37.         └─rlang:::conditionMessage.rlang_message(cond)
   38.           └─rlang::cnd_message(c)
   39.             └─rlang:::cnd_message_format(cnd, ...)
   40.               └─rlang (local) cli_format(glue_escape(lines))
   41.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   42.                   └─cli::cli_format(x, .envir = emptyenv())
   43.                     └─cli:::fmt(...)
   44.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   45.                         ├─base::do.call(app[[msg$type]], msg$args)
   46.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-90", class = NULL)
   47.                           └─cli:::clii_bullets(app, text, id, class)
   48.                             └─base::lapply(...)
   49.                               └─cli (local) FUN(X[[i]], ...)
   50.                                 └─app$text(text[[i]])
   51.                                   └─cli:::clii_text(app, text)
   52.                                     └─app$xtext(text)
   53.                                       └─cli:::clii__xtext(...)
   54.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   55.                                           └─base::lapply(pars, ansi_trimws)
   56.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (???): chiM method works with speedglm and glm on dataframes with additional factors ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...)
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─scoringTools::chiM_iter(...)
    7. │ └─scoringTools:::calculate_criterlist(...)
    8. │   ├─base::cbind(...)
    9. │   ├─base::data.frame(...)
   10. │   ├─base::sapply(...)
   11. │   │ └─base::lapply(X = X, FUN = FUN, ...)
   12. │   ├─base::data.frame(...)
   13. │   ├─scoringTools:::discretize_cutp(...)
   14. │   │ └─base::ncol(cont_train_set)
   15. │   └─... %>% as.data.frame()
   16. ├─base::as.data.frame(.)
   17. ├─dplyr::select_if(., function(col) !is.factor(col))
   18. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   19. │   └─dplyr::tbl_vars(.tbl)
   20. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21. │     │ └─base::structure(...)
   22. │     └─dplyr:::tbl_vars_dispatch(x)
   23. ├─dplyr::as_tibble(., .name_repair = "unique")
   24. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   25. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   26. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   27. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   28. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   29. │       ├─rlang::set_names(...)
   30. │       └─tibble:::repaired_names(...)
   31. │         ├─tibble:::subclass_name_repair_errors(...)
   32. │         │ └─base::withCallingHandlers(...)
   33. │         └─vctrs::vec_as_names(...)
   34. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   35.   └─rlang::names_inform_repair(orig_names, names)
   36.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   37.       ├─base::withRestarts(...)
   38.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   39.       │   └─base (local) doWithOneRestart(return(expr), restart)
   40.       └─base::signalCondition(cnd)
   41.         ├─base::conditionMessage(cond)
   42.         └─rlang:::conditionMessage.rlang_message(cond)
   43.           └─rlang::cnd_message(c)
   44.             └─rlang:::cnd_message_format(cnd, ...)
   45.               └─rlang (local) cli_format(glue_escape(lines))
   46.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   47.                   └─cli::cli_format(x, .envir = emptyenv())
   48.                     └─cli:::fmt(...)
   49.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   50.                         ├─base::do.call(app[[msg$type]], msg$args)
   51.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-120", class = NULL)
   52.                           └─cli:::clii_bullets(app, text, id, class)
   53.                             └─base::lapply(...)
   54.                               └─cli (local) FUN(X[[i]], ...)
   55.                                 └─app$text(text[[i]])
   56.                                   └─cli:::clii_text(app, text)
   57.                                     └─app$xtext(text)
   58.                                       └─cli:::clii__xtext(...)
   59.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   60.                                           └─base::lapply(pars, ansi_trimws)
   61.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test-echi2.R:18:9): echi2 method works with speedglm and glm on matrices ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─scoringTools::echi2_iter(...) at test-echi2.R:18:8
    2. │ └─scoringTools:::calculate_criterlist(...)
    3. │   ├─base::cbind(...)
    4. │   ├─base::data.frame(...)
    5. │   ├─base::sapply(...)
    6. │   │ └─base::lapply(X = X, FUN = FUN, ...)
    7. │   ├─base::data.frame(...)
    8. │   ├─scoringTools:::discretize_cutp(...)
    9. │   │ └─base::ncol(cont_train_set)
   10. │   └─... %>% as.data.frame()
   11. ├─base::as.data.frame(.)
   12. ├─dplyr::select_if(., function(col) !is.factor(col))
   13. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   14. │   └─dplyr::tbl_vars(.tbl)
   15. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   16. │     │ └─base::structure(...)
   17. │     └─dplyr:::tbl_vars_dispatch(x)
   18. ├─dplyr::as_tibble(., .name_repair = "unique")
   19. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   20. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   21. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   22. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   23. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   24. │       ├─rlang::set_names(...)
   25. │       └─tibble:::repaired_names(...)
   26. │         ├─tibble:::subclass_name_repair_errors(...)
   27. │         │ └─base::withCallingHandlers(...)
   28. │         └─vctrs::vec_as_names(...)
   29. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   30.   └─rlang::names_inform_repair(orig_names, names)
   31.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   32.       ├─base::withRestarts(...)
   33.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   34.       │   └─base (local) doWithOneRestart(return(expr), restart)
   35.       └─base::signalCondition(cnd)
   36.         ├─base::conditionMessage(cond)
   37.         └─rlang:::conditionMessage.rlang_message(cond)
   38.           └─rlang::cnd_message(c)
   39.             └─rlang:::cnd_message_format(cnd, ...)
   40.               └─rlang (local) cli_format(glue_escape(lines))
   41.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   42.                   └─cli::cli_format(x, .envir = emptyenv())
   43.                     └─cli:::fmt(...)
   44.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   45.                         ├─base::do.call(app[[msg$type]], msg$args)
   46.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-150", class = NULL)
   47.                           └─cli:::clii_bullets(app, text, id, class)
   48.                             └─base::lapply(...)
   49.                               └─cli (local) FUN(X[[i]], ...)
   50.                                 └─app$text(text[[i]])
   51.                                   └─cli:::clii_text(app, text)
   52.                                     └─app$xtext(text)
   53.                                       └─cli:::clii__xtext(...)
   54.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   55.                                           └─base::lapply(pars, ansi_trimws)
   56.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (???): echi2 method works with speedglm and glm on dataframes with additional factors ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...)
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─scoringTools::echi2_iter(...)
    7. │ └─scoringTools:::calculate_criterlist(...)
    8. │   ├─base::cbind(...)
    9. │   ├─base::data.frame(...)
   10. │   ├─base::sapply(...)
   11. │   │ └─base::lapply(X = X, FUN = FUN, ...)
   12. │   ├─base::data.frame(...)
   13. │   ├─scoringTools:::discretize_cutp(...)
   14. │   │ └─base::ncol(cont_train_set)
   15. │   └─... %>% as.data.frame()
   16. ├─base::as.data.frame(.)
   17. ├─dplyr::select_if(., function(col) !is.factor(col))
   18. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   19. │   └─dplyr::tbl_vars(.tbl)
   20. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21. │     │ └─base::structure(...)
   22. │     └─dplyr:::tbl_vars_dispatch(x)
   23. ├─dplyr::as_tibble(., .name_repair = "unique")
   24. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   25. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   26. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   27. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   28. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   29. │       ├─rlang::set_names(...)
   30. │       └─tibble:::repaired_names(...)
   31. │         ├─tibble:::subclass_name_repair_errors(...)
   32. │         │ └─base::withCallingHandlers(...)
   33. │         └─vctrs::vec_as_names(...)
   34. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   35.   └─rlang::names_inform_repair(orig_names, names)
   36.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   37.       ├─base::withRestarts(...)
   38.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   39.       │   └─base (local) doWithOneRestart(return(expr), restart)
   40.       └─base::signalCondition(cnd)
   41.         ├─base::conditionMessage(cond)
   42.         └─rlang:::conditionMessage.rlang_message(cond)
   43.           └─rlang::cnd_message(c)
   44.             └─rlang:::cnd_message_format(cnd, ...)
   45.               └─rlang (local) cli_format(glue_escape(lines))
   46.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   47.                   └─cli::cli_format(x, .envir = emptyenv())
   48.                     └─cli:::fmt(...)
   49.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   50.                         ├─base::do.call(app[[msg$type]], msg$args)
   51.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-180", class = NULL)
   52.                           └─cli:::clii_bullets(app, text, id, class)
   53.                             └─base::lapply(...)
   54.                               └─cli (local) FUN(X[[i]], ...)
   55.                                 └─app$text(text[[i]])
   56.                                   └─cli:::clii_text(app, text)
   57.                                     └─app$xtext(text)
   58.                                       └─cli:::clii__xtext(...)
   59.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   60.                                           └─base::lapply(pars, ansi_trimws)
   61.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test-mdlp.R:18:9): mdlp method works with speedglm and glm on matrices ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─scoringTools::mdlp_iter(...) at test-mdlp.R:18:8
    2. │ └─scoringTools:::calculate_criterlist(...)
    3. │   ├─base::cbind(...)
    4. │   ├─base::data.frame(...)
    5. │   ├─base::sapply(...)
    6. │   │ └─base::lapply(X = X, FUN = FUN, ...)
    7. │   ├─base::data.frame(...)
    8. │   ├─scoringTools:::discretize_cutp(...)
    9. │   │ └─base::ncol(cont_train_set)
   10. │   └─... %>% as.data.frame()
   11. ├─base::as.data.frame(.)
   12. ├─dplyr::select_if(., function(col) !is.factor(col))
   13. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   14. │   └─dplyr::tbl_vars(.tbl)
   15. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   16. │     │ └─base::structure(...)
   17. │     └─dplyr:::tbl_vars_dispatch(x)
   18. ├─dplyr::as_tibble(., .name_repair = "unique")
   19. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   20. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   21. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   22. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   23. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   24. │       ├─rlang::set_names(...)
   25. │       └─tibble:::repaired_names(...)
   26. │         ├─tibble:::subclass_name_repair_errors(...)
   27. │         │ └─base::withCallingHandlers(...)
   28. │         └─vctrs::vec_as_names(...)
   29. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   30.   └─rlang::names_inform_repair(orig_names, names)
   31.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   32.       ├─base::withRestarts(...)
   33.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   34.       │   └─base (local) doWithOneRestart(return(expr), restart)
   35.       └─base::signalCondition(cnd)
   36.         ├─base::conditionMessage(cond)
   37.         └─rlang:::conditionMessage.rlang_message(cond)
   38.           └─rlang::cnd_message(c)
   39.             └─rlang:::cnd_message_format(cnd, ...)
   40.               └─rlang (local) cli_format(glue_escape(lines))
   41.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   42.                   └─cli::cli_format(x, .envir = emptyenv())
   43.                     └─cli:::fmt(...)
   44.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   45.                         ├─base::do.call(app[[msg$type]], msg$args)
   46.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-210", class = NULL)
   47.                           └─cli:::clii_bullets(app, text, id, class)
   48.                             └─base::lapply(...)
   49.                               └─cli (local) FUN(X[[i]], ...)
   50.                                 └─app$text(text[[i]])
   51.                                   └─cli:::clii_text(app, text)
   52.                                     └─app$xtext(text)
   53.                                       └─cli:::clii__xtext(...)
   54.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   55.                                           └─base::lapply(pars, ansi_trimws)
   56.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (???): mdlp method works with speedglm and glm on dataframes with additional factors ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...)
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─scoringTools::mdlp_iter(...)
    7. │ └─scoringTools:::calculate_criterlist(...)
    8. │   ├─base::cbind(...)
    9. │   ├─base::data.frame(...)
   10. │   ├─base::sapply(...)
   11. │   │ └─base::lapply(X = X, FUN = FUN, ...)
   12. │   ├─base::data.frame(...)
   13. │   ├─scoringTools:::discretize_cutp(...)
   14. │   │ └─base::ncol(cont_train_set)
   15. │   └─... %>% as.data.frame()
   16. ├─base::as.data.frame(.)
   17. ├─dplyr::select_if(., function(col) !is.factor(col))
   18. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   19. │   └─dplyr::tbl_vars(.tbl)
   20. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21. │     │ └─base::structure(...)
   22. │     └─dplyr:::tbl_vars_dispatch(x)
   23. ├─dplyr::as_tibble(., .name_repair = "unique")
   24. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   25. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   26. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   27. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   28. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   29. │       ├─rlang::set_names(...)
   30. │       └─tibble:::repaired_names(...)
   31. │         ├─tibble:::subclass_name_repair_errors(...)
   32. │         │ └─base::withCallingHandlers(...)
   33. │         └─vctrs::vec_as_names(...)
   34. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   35.   └─rlang::names_inform_repair(orig_names, names)
   36.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   37.       ├─base::withRestarts(...)
   38.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   39.       │   └─base (local) doWithOneRestart(return(expr), restart)
   40.       └─base::signalCondition(cnd)
   41.         ├─base::conditionMessage(cond)
   42.         └─rlang:::conditionMessage.rlang_message(cond)
   43.           └─rlang::cnd_message(c)
   44.             └─rlang:::cnd_message_format(cnd, ...)
   45.               └─rlang (local) cli_format(glue_escape(lines))
   46.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   47.                   └─cli::cli_format(x, .envir = emptyenv())
   48.                     └─cli:::fmt(...)
   49.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   50.                         ├─base::do.call(app[[msg$type]], msg$args)
   51.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-240", class = NULL)
   52.                           └─cli:::clii_bullets(app, text, id, class)
   53.                             └─base::lapply(...)
   54.                               └─cli (local) FUN(X[[i]], ...)
   55.                                 └─app$text(text[[i]])
   56.                                   └─cli:::clii_text(app, text)
   57.                                     └─app$xtext(text)
   58.                                       └─cli:::clii__xtext(...)
   59.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   60.                                           └─base::lapply(pars, ansi_trimws)
   61.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test-methods.R:33:3): show method for discretization works ───────────
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─scoringTools::chi2_iter(x, y) at test-methods.R:33:2
    2. │ └─scoringTools:::output_disc(...)
    3. │   ├─methods::new(...)
    4. │   │ ├─methods::initialize(value, ...)
    5. │   │ └─methods::initialize(value, ...)
    6. │   ├─base::cbind(...)
    7. │   └─scoringTools:::compute_data_val_test(...)
    8. │     ├─base::cbind(...)
    9. │     ├─base::data.frame(...)
   10. │     ├─base::sapply(...)
   11. │     │ └─base::lapply(X = X, FUN = FUN, ...)
   12. │     ├─base::data.frame(...)
   13. │     ├─scoringTools:::discretize_cutp(...)
   14. │     │ └─base::ncol(cont_train_set)
   15. │     └─... %>% as.data.frame()
   16. ├─base::as.data.frame(.)
   17. ├─dplyr::select_if(., function(col) !is.factor(col))
   18. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   19. │   └─dplyr::tbl_vars(.tbl)
   20. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21. │     │ └─base::structure(...)
   22. │     └─dplyr:::tbl_vars_dispatch(x)
   23. ├─dplyr::as_tibble(., .name_repair = "unique")
   24. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   25. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   26. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   27. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   28. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   29. │       ├─rlang::set_names(...)
   30. │       └─tibble:::repaired_names(...)
   31. │         ├─tibble:::subclass_name_repair_errors(...)
   32. │         │ └─base::withCallingHandlers(...)
   33. │         └─vctrs::vec_as_names(...)
   34. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   35.   └─rlang::names_inform_repair(orig_names, names)
   36.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   37.       ├─base::withRestarts(...)
   38.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   39.       │   └─base (local) doWithOneRestart(return(expr), restart)
   40.       └─base::signalCondition(cnd)
   41.         ├─base::conditionMessage(cond)
   42.         └─rlang:::conditionMessage.rlang_message(cond)
   43.           └─rlang::cnd_message(c)
   44.             └─rlang:::cnd_message_format(cnd, ...)
   45.               └─rlang (local) cli_format(glue_escape(lines))
   46.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   47.                   └─cli::cli_format(x, .envir = emptyenv())
   48.                     └─cli:::fmt(...)
   49.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   50.                         ├─base::do.call(app[[msg$type]], msg$args)
   51.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-282", class = NULL)
   52.                           └─cli:::clii_bullets(app, text, id, class)
   53.                             └─base::lapply(...)
   54.                               └─cli (local) FUN(X[[i]], ...)
   55.                                 └─app$text(text[[i]])
   56.                                   └─cli:::clii_text(app, text)
   57.                                     └─app$xtext(text)
   58.                                       └─cli:::clii__xtext(...)
   59.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   60.                                           └─base::lapply(pars, ansi_trimws)
   61.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test-methods.R:51:3): predict method for discretization works ────────
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─scoringTools::chi2_iter(x, y) at test-methods.R:51:2
    2. │ └─scoringTools:::output_disc(...)
    3. │   ├─methods::new(...)
    4. │   │ ├─methods::initialize(value, ...)
    5. │   │ └─methods::initialize(value, ...)
    6. │   ├─base::cbind(...)
    7. │   └─scoringTools:::compute_data_val_test(...)
    8. │     ├─base::cbind(...)
    9. │     ├─base::data.frame(...)
   10. │     ├─base::sapply(...)
   11. │     │ └─base::lapply(X = X, FUN = FUN, ...)
   12. │     ├─base::data.frame(...)
   13. │     ├─scoringTools:::discretize_cutp(...)
   14. │     │ └─base::ncol(cont_train_set)
   15. │     └─... %>% as.data.frame()
   16. ├─base::as.data.frame(.)
   17. ├─dplyr::select_if(., function(col) !is.factor(col))
   18. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   19. │   └─dplyr::tbl_vars(.tbl)
   20. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21. │     │ └─base::structure(...)
   22. │     └─dplyr:::tbl_vars_dispatch(x)
   23. ├─dplyr::as_tibble(., .name_repair = "unique")
   24. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   25. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   26. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   27. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   28. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   29. │       ├─rlang::set_names(...)
   30. │       └─tibble:::repaired_names(...)
   31. │         ├─tibble:::subclass_name_repair_errors(...)
   32. │         │ └─base::withCallingHandlers(...)
   33. │         └─vctrs::vec_as_names(...)
   34. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   35.   └─rlang::names_inform_repair(orig_names, names)
   36.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   37.       ├─base::withRestarts(...)
   38.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   39.       │   └─base (local) doWithOneRestart(return(expr), restart)
   40.       └─base::signalCondition(cnd)
   41.         ├─base::conditionMessage(cond)
   42.         └─rlang:::conditionMessage.rlang_message(cond)
   43.           └─rlang::cnd_message(c)
   44.             └─rlang:::cnd_message_format(cnd, ...)
   45.               └─rlang (local) cli_format(glue_escape(lines))
   46.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   47.                   └─cli::cli_format(x, .envir = emptyenv())
   48.                     └─cli:::fmt(...)
   49.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   50.                         ├─base::do.call(app[[msg$type]], msg$args)
   51.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-324", class = NULL)
   52.                           └─cli:::clii_bullets(app, text, id, class)
   53.                             └─base::lapply(...)
   54.                               └─cli (local) FUN(X[[i]], ...)
   55.                                 └─app$text(text[[i]])
   56.                                   └─cli:::clii_text(app, text)
   57.                                     └─app$xtext(text)
   58.                                       └─cli:::clii__xtext(...)
   59.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   60.                                           └─base::lapply(pars, ansi_trimws)
   61.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test-methods.R:107:3): plot method for discretization works ──────────
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─scoringTools::chi2_iter(x, y) at test-methods.R:107:2
    2. │ └─scoringTools:::output_disc(...)
    3. │   ├─methods::new(...)
    4. │   │ ├─methods::initialize(value, ...)
    5. │   │ └─methods::initialize(value, ...)
    6. │   ├─base::cbind(...)
    7. │   └─scoringTools:::compute_data_val_test(...)
    8. │     ├─base::cbind(...)
    9. │     ├─base::data.frame(...)
   10. │     ├─base::sapply(...)
   11. │     │ └─base::lapply(X = X, FUN = FUN, ...)
   12. │     ├─base::data.frame(...)
   13. │     ├─scoringTools:::discretize_cutp(...)
   14. │     │ └─base::ncol(cont_train_set)
   15. │     └─... %>% as.data.frame()
   16. ├─base::as.data.frame(.)
   17. ├─dplyr::select_if(., function(col) !is.factor(col))
   18. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   19. │   └─dplyr::tbl_vars(.tbl)
   20. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21. │     │ └─base::structure(...)
   22. │     └─dplyr:::tbl_vars_dispatch(x)
   23. ├─dplyr::as_tibble(., .name_repair = "unique")
   24. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   25. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   26. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   27. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   28. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   29. │       ├─rlang::set_names(...)
   30. │       └─tibble:::repaired_names(...)
   31. │         ├─tibble:::subclass_name_repair_errors(...)
   32. │         │ └─base::withCallingHandlers(...)
   33. │         └─vctrs::vec_as_names(...)
   34. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   35.   └─rlang::names_inform_repair(orig_names, names)
   36.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   37.       ├─base::withRestarts(...)
   38.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   39.       │   └─base (local) doWithOneRestart(return(expr), restart)
   40.       └─base::signalCondition(cnd)
   41.         ├─base::conditionMessage(cond)
   42.         └─rlang:::conditionMessage.rlang_message(cond)
   43.           └─rlang::cnd_message(c)
   44.             └─rlang:::cnd_message_format(cnd, ...)
   45.               └─rlang (local) cli_format(glue_escape(lines))
   46.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   47.                   └─cli::cli_format(x, .envir = emptyenv())
   48.                     └─cli:::fmt(...)
   49.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   50.                         ├─base::do.call(app[[msg$type]], msg$args)
   51.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-366", class = NULL)
   52.                           └─cli:::clii_bullets(app, text, id, class)
   53.                             └─base::lapply(...)
   54.                               └─cli (local) FUN(X[[i]], ...)
   55.                                 └─app$text(text[[i]])
   56.                                   └─cli:::clii_text(app, text)
   57.                                     └─app$xtext(text)
   58.                                       └─cli:::clii__xtext(...)
   59.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   60.                                           └─base::lapply(pars, ansi_trimws)
   61.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test-methods.R:159:3): discretize method for discretization works ────
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─scoringTools::chi2_iter(x, y) at test-methods.R:159:2
    2. │ └─scoringTools:::output_disc(...)
    3. │   ├─methods::new(...)
    4. │   │ ├─methods::initialize(value, ...)
    5. │   │ └─methods::initialize(value, ...)
    6. │   ├─base::cbind(...)
    7. │   └─scoringTools:::compute_data_val_test(...)
    8. │     ├─base::cbind(...)
    9. │     ├─base::data.frame(...)
   10. │     ├─base::sapply(...)
   11. │     │ └─base::lapply(X = X, FUN = FUN, ...)
   12. │     ├─base::data.frame(...)
   13. │     ├─scoringTools:::discretize_cutp(...)
   14. │     │ └─base::ncol(cont_train_set)
   15. │     └─... %>% as.data.frame()
   16. ├─base::as.data.frame(.)
   17. ├─dplyr::select_if(., function(col) !is.factor(col))
   18. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   19. │   └─dplyr::tbl_vars(.tbl)
   20. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21. │     │ └─base::structure(...)
   22. │     └─dplyr:::tbl_vars_dispatch(x)
   23. ├─dplyr::as_tibble(., .name_repair = "unique")
   24. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   25. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   26. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   27. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   28. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   29. │       ├─rlang::set_names(...)
   30. │       └─tibble:::repaired_names(...)
   31. │         ├─tibble:::subclass_name_repair_errors(...)
   32. │         │ └─base::withCallingHandlers(...)
   33. │         └─vctrs::vec_as_names(...)
   34. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   35.   └─rlang::names_inform_repair(orig_names, names)
   36.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   37.       ├─base::withRestarts(...)
   38.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   39.       │   └─base (local) doWithOneRestart(return(expr), restart)
   40.       └─base::signalCondition(cnd)
   41.         ├─base::conditionMessage(cond)
   42.         └─rlang:::conditionMessage.rlang_message(cond)
   43.           └─rlang::cnd_message(c)
   44.             └─rlang:::cnd_message_format(cnd, ...)
   45.               └─rlang (local) cli_format(glue_escape(lines))
   46.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   47.                   └─cli::cli_format(x, .envir = emptyenv())
   48.                     └─cli:::fmt(...)
   49.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   50.                         ├─base::do.call(app[[msg$type]], msg$args)
   51.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-408", class = NULL)
   52.                           └─cli:::clii_bullets(app, text, id, class)
   53.                             └─base::lapply(...)
   54.                               └─cli (local) FUN(X[[i]], ...)
   55.                                 └─app$text(text[[i]])
   56.                                   └─cli:::clii_text(app, text)
   57.                                     └─app$xtext(text)
   58.                                       └─cli:::clii__xtext(...)
   59.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   60.                                           └─base::lapply(pars, ansi_trimws)
   61.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test-modchi2.R:18:9): modChi2 method works with speedglm on matrices ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─scoringTools::modChi2_iter(...) at test-modchi2.R:18:8
    2. │ └─scoringTools:::calculate_criterlist(...)
    3. │   ├─base::cbind(...)
    4. │   ├─base::data.frame(...)
    5. │   ├─base::sapply(...)
    6. │   │ └─base::lapply(X = X, FUN = FUN, ...)
    7. │   ├─base::data.frame(...)
    8. │   ├─scoringTools:::discretize_cutp(...)
    9. │   │ └─base::ncol(cont_train_set)
   10. │   └─... %>% as.data.frame()
   11. ├─base::as.data.frame(.)
   12. ├─dplyr::select_if(., function(col) !is.factor(col))
   13. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   14. │   └─dplyr::tbl_vars(.tbl)
   15. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   16. │     │ └─base::structure(...)
   17. │     └─dplyr:::tbl_vars_dispatch(x)
   18. ├─dplyr::as_tibble(., .name_repair = "unique")
   19. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   20. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   21. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   22. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   23. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   24. │       ├─rlang::set_names(...)
   25. │       └─tibble:::repaired_names(...)
   26. │         ├─tibble:::subclass_name_repair_errors(...)
   27. │         │ └─base::withCallingHandlers(...)
   28. │         └─vctrs::vec_as_names(...)
   29. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   30.   └─rlang::names_inform_repair(orig_names, names)
   31.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   32.       ├─base::withRestarts(...)
   33.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   34.       │   └─base (local) doWithOneRestart(return(expr), restart)
   35.       └─base::signalCondition(cnd)
   36.         ├─base::conditionMessage(cond)
   37.         └─rlang:::conditionMessage.rlang_message(cond)
   38.           └─rlang::cnd_message(c)
   39.             └─rlang:::cnd_message_format(cnd, ...)
   40.               └─rlang (local) cli_format(glue_escape(lines))
   41.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   42.                   └─cli::cli_format(x, .envir = emptyenv())
   43.                     └─cli:::fmt(...)
   44.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   45.                         ├─base::do.call(app[[msg$type]], msg$args)
   46.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-438", class = NULL)
   47.                           └─cli:::clii_bullets(app, text, id, class)
   48.                             └─base::lapply(...)
   49.                               └─cli (local) FUN(X[[i]], ...)
   50.                                 └─app$text(text[[i]])
   51.                                   └─cli:::clii_text(app, text)
   52.                                     └─app$xtext(text)
   53.                                       └─cli:::clii__xtext(...)
   54.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   55.                                           └─base::lapply(pars, ansi_trimws)
   56.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (???): modChi2 method works with speedglm and glm on dataframes with additional factors ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...)
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─scoringTools::modChi2_iter(...)
    7. │ └─scoringTools:::calculate_criterlist(...)
    8. │   ├─base::cbind(...)
    9. │   ├─base::data.frame(...)
   10. │   ├─base::sapply(...)
   11. │   │ └─base::lapply(X = X, FUN = FUN, ...)
   12. │   ├─base::data.frame(...)
   13. │   ├─scoringTools:::discretize_cutp(...)
   14. │   │ └─base::ncol(cont_train_set)
   15. │   └─... %>% as.data.frame()
   16. ├─base::as.data.frame(.)
   17. ├─dplyr::select_if(., function(col) !is.factor(col))
   18. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   19. │   └─dplyr::tbl_vars(.tbl)
   20. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21. │     │ └─base::structure(...)
   22. │     └─dplyr:::tbl_vars_dispatch(x)
   23. ├─dplyr::as_tibble(., .name_repair = "unique")
   24. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   25. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   26. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   27. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   28. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   29. │       ├─rlang::set_names(...)
   30. │       └─tibble:::repaired_names(...)
   31. │         ├─tibble:::subclass_name_repair_errors(...)
   32. │         │ └─base::withCallingHandlers(...)
   33. │         └─vctrs::vec_as_names(...)
   34. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   35.   └─rlang::names_inform_repair(orig_names, names)
   36.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   37.       ├─base::withRestarts(...)
   38.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   39.       │   └─base (local) doWithOneRestart(return(expr), restart)
   40.       └─base::signalCondition(cnd)
   41.         ├─base::conditionMessage(cond)
   42.         └─rlang:::conditionMessage.rlang_message(cond)
   43.           └─rlang::cnd_message(c)
   44.             └─rlang:::cnd_message_format(cnd, ...)
   45.               └─rlang (local) cli_format(glue_escape(lines))
   46.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   47.                   └─cli::cli_format(x, .envir = emptyenv())
   48.                     └─cli:::fmt(...)
   49.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   50.                         ├─base::do.call(app[[msg$type]], msg$args)
   51.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-468", class = NULL)
   52.                           └─cli:::clii_bullets(app, text, id, class)
   53.                             └─base::lapply(...)
   54.                               └─cli (local) FUN(X[[i]], ...)
   55.                                 └─app$text(text[[i]])
   56.                                   └─cli:::clii_text(app, text)
   57.                                     └─app$xtext(text)
   58.                                       └─cli:::clii__xtext(...)
   59.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   60.                                           └─base::lapply(pars, ansi_trimws)
   61.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (test-topdown.R:18:9): topdown method works with speedglm on matrices ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─scoringTools::topdown_iter(...) at test-topdown.R:18:8
    2. │ └─scoringTools:::calculate_criterlist(...)
    3. │   ├─base::cbind(...)
    4. │   ├─base::data.frame(...)
    5. │   ├─base::sapply(...)
    6. │   │ └─base::lapply(X = X, FUN = FUN, ...)
    7. │   ├─base::data.frame(...)
    8. │   ├─scoringTools:::discretize_cutp(...)
    9. │   │ └─base::ncol(cont_train_set)
   10. │   └─... %>% as.data.frame()
   11. ├─base::as.data.frame(.)
   12. ├─dplyr::select_if(., function(col) !is.factor(col))
   13. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   14. │   └─dplyr::tbl_vars(.tbl)
   15. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   16. │     │ └─base::structure(...)
   17. │     └─dplyr:::tbl_vars_dispatch(x)
   18. ├─dplyr::as_tibble(., .name_repair = "unique")
   19. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   20. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   21. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   22. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   23. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   24. │       ├─rlang::set_names(...)
   25. │       └─tibble:::repaired_names(...)
   26. │         ├─tibble:::subclass_name_repair_errors(...)
   27. │         │ └─base::withCallingHandlers(...)
   28. │         └─vctrs::vec_as_names(...)
   29. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   30.   └─rlang::names_inform_repair(orig_names, names)
   31.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   32.       ├─base::withRestarts(...)
   33.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   34.       │   └─base (local) doWithOneRestart(return(expr), restart)
   35.       └─base::signalCondition(cnd)
   36.         ├─base::conditionMessage(cond)
   37.         └─rlang:::conditionMessage.rlang_message(cond)
   38.           └─rlang::cnd_message(c)
   39.             └─rlang:::cnd_message_format(cnd, ...)
   40.               └─rlang (local) cli_format(glue_escape(lines))
   41.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   42.                   └─cli::cli_format(x, .envir = emptyenv())
   43.                     └─cli:::fmt(...)
   44.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   45.                         ├─base::do.call(app[[msg$type]], msg$args)
   46.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-498", class = NULL)
   47.                           └─cli:::clii_bullets(app, text, id, class)
   48.                             └─base::lapply(...)
   49.                               └─cli (local) FUN(X[[i]], ...)
   50.                                 └─app$text(text[[i]])
   51.                                   └─cli:::clii_text(app, text)
   52.                                     └─app$xtext(text)
   53.                                       └─cli:::clii__xtext(...)
   54.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   55.                                           └─base::lapply(pars, ansi_trimws)
   56.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (???): topdown method works with speedglm and glm on dataframes with additional factors ──
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...)
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─scoringTools::topdown_iter(...)
    7. │ └─scoringTools:::calculate_criterlist(...)
    8. │   ├─base::cbind(...)
    9. │   ├─base::data.frame(...)
   10. │   ├─base::sapply(...)
   11. │   │ └─base::lapply(X = X, FUN = FUN, ...)
   12. │   ├─base::data.frame(...)
   13. │   ├─scoringTools:::discretize_cutp(...)
   14. │   │ └─base::ncol(cont_train_set)
   15. │   └─... %>% as.data.frame()
   16. ├─base::as.data.frame(.)
   17. ├─dplyr::select_if(., function(col) !is.factor(col))
   18. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   19. │   └─dplyr::tbl_vars(.tbl)
   20. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21. │     │ └─base::structure(...)
   22. │     └─dplyr:::tbl_vars_dispatch(x)
   23. ├─dplyr::as_tibble(., .name_repair = "unique")
   24. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   25. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   26. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   27. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   28. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   29. │       ├─rlang::set_names(...)
   30. │       └─tibble:::repaired_names(...)
   31. │         ├─tibble:::subclass_name_repair_errors(...)
   32. │         │ └─base::withCallingHandlers(...)
   33. │         └─vctrs::vec_as_names(...)
   34. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   35.   └─rlang::names_inform_repair(orig_names, names)
   36.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   37.       ├─base::withRestarts(...)
   38.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   39.       │   └─base (local) doWithOneRestart(return(expr), restart)
   40.       └─base::signalCondition(cnd)
   41.         ├─base::conditionMessage(cond)
   42.         └─rlang:::conditionMessage.rlang_message(cond)
   43.           └─rlang::cnd_message(c)
   44.             └─rlang:::cnd_message_format(cnd, ...)
   45.               └─rlang (local) cli_format(glue_escape(lines))
   46.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   47.                   └─cli::cli_format(x, .envir = emptyenv())
   48.                     └─cli:::fmt(...)
   49.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   50.                         ├─base::do.call(app[[msg$type]], msg$args)
   51.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-528", class = NULL)
   52.                           └─cli:::clii_bullets(app, text, id, class)
   53.                             └─base::lapply(...)
   54.                               └─cli (local) FUN(X[[i]], ...)
   55.                                 └─app$text(text[[i]])
   56.                                   └─cli:::clii_text(app, text)
   57.                                     └─app$xtext(text)
   58.                                       └─cli:::clii__xtext(...)
   59.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   60.                                           └─base::lapply(pars, ansi_trimws)
   61.                                             └─cli (local) FUN(X[[i]], ...)
  ── Error (???): topdown method works with glm ──────────────────────────────────
  Error in `nchar(xs)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...)
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─scoringTools::topdown_iter(...)
    7. │ └─scoringTools:::calculate_criterlist(...)
    8. │   ├─base::cbind(...)
    9. │   ├─base::data.frame(...)
   10. │   ├─base::sapply(...)
   11. │   │ └─base::lapply(X = X, FUN = FUN, ...)
   12. │   ├─base::data.frame(...)
   13. │   ├─scoringTools:::discretize_cutp(...)
   14. │   │ └─base::ncol(cont_train_set)
   15. │   └─... %>% as.data.frame()
   16. ├─base::as.data.frame(.)
   17. ├─dplyr::select_if(., function(col) !is.factor(col))
   18. │ └─dplyr:::tbl_if_vars(.tbl, .predicate, caller_env(), .include_group_vars = TRUE)
   19. │   └─dplyr::tbl_vars(.tbl)
   20. │     ├─dplyr:::new_sel_vars(tbl_vars_dispatch(x), group_vars(x))
   21. │     │ └─base::structure(...)
   22. │     └─dplyr:::tbl_vars_dispatch(x)
   23. ├─dplyr::as_tibble(., .name_repair = "unique")
   24. ├─tibble:::as_tibble.matrix(., .name_repair = "unique")
   25. │ ├─tibble::as_tibble(m, ..., validate = validate, .name_repair = .name_repair)
   26. │ └─tibble:::as_tibble.data.frame(m, ..., validate = validate, .name_repair = .name_repair)
   27. │   └─tibble:::lst_to_tibble(unclass(x), .rows, .name_repair)
   28. │     └─tibble:::set_repaired_names(x, repair_hint = TRUE, .name_repair)
   29. │       ├─rlang::set_names(...)
   30. │       └─tibble:::repaired_names(...)
   31. │         ├─tibble:::subclass_name_repair_errors(...)
   32. │         │ └─base::withCallingHandlers(...)
   33. │         └─vctrs::vec_as_names(...)
   34. └─vctrs:::describe_repair(`<chr>`, `<chr>`)
   35.   └─rlang::names_inform_repair(orig_names, names)
   36.     └─rlang::inform(message = message, class = "rlib_message_name_repair")
   37.       ├─base::withRestarts(...)
   38.       │ └─base (local) withOneRestart(expr, restarts[[1L]])
   39.       │   └─base (local) doWithOneRestart(return(expr), restart)
   40.       └─base::signalCondition(cnd)
   41.         ├─base::conditionMessage(cond)
   42.         └─rlang:::conditionMessage.rlang_message(cond)
   43.           └─rlang::cnd_message(c)
   44.             └─rlang:::cnd_message_format(cnd, ...)
   45.               └─rlang (local) cli_format(glue_escape(lines))
   46.                 └─rlang:::.rlang_cli_format(x, cli::format_message)
   47.                   └─cli::cli_format(x, .envir = emptyenv())
   48.                     └─cli:::fmt(...)
   49.                       └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   50.                         ├─base::do.call(app[[msg$type]], msg$args)
   51.                         └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-570", class = NULL)
   52.                           └─cli:::clii_bullets(app, text, id, class)
   53.                             └─base::lapply(...)
   54.                               └─cli (local) FUN(X[[i]], ...)
   55.                                 └─app$text(text[[i]])
   56.                                   └─cli:::clii_text(app, text)
   57.                                     └─app$xtext(text)
   58.                                       └─cli:::clii__xtext(...)
   59.                                         └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   60.                                           └─base::lapply(pars, ansi_trimws)
   61.                                             └─cli (local) FUN(X[[i]], ...)
  
  [ FAIL 17 | WARN 8 | SKIP 0 | PASS 147 ]
  Error: Test failures
  Execution halted