Running 'testthat.R' [122s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(diceR)
  > 
  > test_check("diceR")
  Selecting k and imputing non-clustered cases
  Computing consensus functions
  Evaluating output with consensus function results
  Diverse Cluster Ensemble Completed
  Selecting k and imputing non-clustered cases
  Computing consensus functions
  Evaluating output with consensus function results
  Diverse Cluster Ensemble Completed
  Selecting k and imputing non-clustered cases
  Computing consensus functions
  Evaluating output with consensus function results
  Diverse Cluster Ensemble Completed
  Selecting k and imputing non-clustered cases
  Computing consensus functions
  Diverse Cluster Ensemble Completed
  Selecting k and imputing non-clustered cases
  Computing consensus functions
  Diverse Cluster Ensemble Completed
  Selecting k and imputing non-clustered cases
  Computing consensus functions
  Diverse Cluster Ensemble Completed
  Selecting k and imputing non-clustered cases
  Computing consensus functions
  Diverse Cluster Ensemble Completed
  [ FAIL 4 | WARN 2 | SKIP 0 | PASS 94 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-consensus_cluster.R:11:3): No algorithms means all algorithms, output is an array ──
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─diceR::consensus_cluster(hgsc, nk = 4, reps = 1, progress = FALSE) at test-consensus_cluster.R:11:2
    2. │ ├─purrr::pmap(list(fun, args), cc) %>% abind::abind(along = 3)
    3. │ └─purrr::pmap(list(fun, args), cc)
    4. │   └─diceR (local) .f(.l[[1L]][[i]], .l[[2L]][[i]], ...)
    5. │     └─length(args$algs) %>% ...
    6. ├─abind::abind(., along = 3)
    7. ├─purrr::when(., . > 0 ~ purrr::invoke(fun, args), ~NULL)
    8. │ └─base::eval(dots[[i]][[action]], env, env)
    9. │   └─base::eval(dots[[i]][[action]], env, env)
   10. │     ├─purrr::invoke(fun, args)
   11. │     │ └─base::do.call(.f, args, envir = .env)
   12. │     └─diceR (local) `<fn>`(...)
   13. │       └─diceR:::nmf_transform(data)
   14. │         └─... %>% suppressMessages()
   15. ├─base::suppressMessages(.)
   16. │ └─base::withCallingHandlers(...)
   17. ├─purrr::map_dfc(., ~ifelse(.x < 0, 0, .x))
   18. │ └─dplyr::bind_cols(res)
   19. │   ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   20. │   │ └─base::withCallingHandlers(...)
   21. │   └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   22. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   23. │ └─rlang::names_inform_repair(orig_names, names)
   24. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   25. │     ├─base::withRestarts(...)
   26. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   27. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   28. │     └─base::signalCondition(cnd)
   29. │       ├─base::conditionMessage(cond)
   30. │       └─rlang:::conditionMessage.rlang_message(cond)
   31. │         └─rlang::cnd_message(c)
   32. │           └─rlang:::cnd_message_format(cnd, ...)
   33. │             └─rlang (local) cli_format(glue_escape(lines))
   34. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   35. │                 └─cli::cli_format(x, .envir = emptyenv())
   36. │                   └─cli:::fmt(...)
   37. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   38. │                       ├─base::do.call(app[[msg$type]], msg$args)
   39. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-726", class = NULL)
   40. │                         └─cli:::clii_bullets(app, text, id, class)
   41. │                           └─base::lapply(...)
   42. │                             └─cli (local) FUN(X[[i]], ...)
   43. │                               └─app$text(text[[i]])
   44. │                                 └─cli:::clii_text(app, text)
   45. │                                   └─app$xtext(text)
   46. │                                     └─cli:::clii__xtext(...)
   47. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   48. │                                         └─base::lapply(pars, ansi_trimws)
   49. │                                           └─cli (local) FUN(X[[i]], ...)
   50. └─base::.handleSimpleError(...)
   51.   └─dplyr (local) h(simpleError(msg, call))
   52.     └─rlang::cnd_signal(cnd)
  ── Error (test-consensus_cluster.R:29:3): Progress bar increments across entire function call ──
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─diceR::consensus_cluster(...) at test-consensus_cluster.R:29:2
    2. │ ├─purrr::pmap(list(fun, args), cc) %>% abind::abind(along = 3)
    3. │ └─purrr::pmap(list(fun, args), cc)
    4. │   └─diceR (local) .f(.l[[1L]][[i]], .l[[2L]][[i]], ...)
    5. │     └─length(args$algs) %>% ...
    6. ├─abind::abind(., along = 3)
    7. ├─purrr::when(., . > 0 ~ purrr::invoke(fun, args), ~NULL)
    8. │ └─base::eval(dots[[i]][[action]], env, env)
    9. │   └─base::eval(dots[[i]][[action]], env, env)
   10. │     ├─purrr::invoke(fun, args)
   11. │     │ └─base::do.call(.f, args, envir = .env)
   12. │     └─diceR (local) `<fn>`(...)
   13. │       └─diceR:::nmf_transform(data)
   14. │         └─... %>% suppressMessages()
   15. ├─base::suppressMessages(.)
   16. │ └─base::withCallingHandlers(...)
   17. ├─purrr::map_dfc(., ~ifelse(.x < 0, 0, .x))
   18. │ └─dplyr::bind_cols(res)
   19. │   ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   20. │   │ └─base::withCallingHandlers(...)
   21. │   └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   22. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   23. │ └─rlang::names_inform_repair(orig_names, names)
   24. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   25. │     ├─base::withRestarts(...)
   26. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   27. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   28. │     └─base::signalCondition(cnd)
   29. │       ├─base::conditionMessage(cond)
   30. │       └─rlang:::conditionMessage.rlang_message(cond)
   31. │         └─rlang::cnd_message(c)
   32. │           └─rlang:::cnd_message_format(cnd, ...)
   33. │             └─rlang (local) cli_format(glue_escape(lines))
   34. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   35. │                 └─cli::cli_format(x, .envir = emptyenv())
   36. │                   └─cli:::fmt(...)
   37. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   38. │                       ├─base::do.call(app[[msg$type]], msg$args)
   39. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-1452", class = NULL)
   40. │                         └─cli:::clii_bullets(app, text, id, class)
   41. │                           └─base::lapply(...)
   42. │                             └─cli (local) FUN(X[[i]], ...)
   43. │                               └─app$text(text[[i]])
   44. │                                 └─cli:::clii_text(app, text)
   45. │                                   └─app$xtext(text)
   46. │                                     └─cli:::clii__xtext(...)
   47. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   48. │                                         └─base::lapply(pars, ansi_trimws)
   49. │                                           └─cli (local) FUN(X[[i]], ...)
   50. └─base::.handleSimpleError(...)
   51.   └─dplyr (local) h(simpleError(msg, call))
   52.     └─rlang::cnd_signal(cnd)
  ── Error (test-consensus_cluster.R:44:3): Data preparation on bootstrap samples works ──
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─diceR::consensus_cluster(...) at test-consensus_cluster.R:44:2
    2. │ ├─purrr::pmap(list(fun, args), cc) %>% abind::abind(along = 3)
    3. │ └─purrr::pmap(list(fun, args), cc)
    4. │   └─diceR (local) .f(.l[[1L]][[i]], .l[[2L]][[i]], ...)
    5. │     └─length(args$algs) %>% ...
    6. ├─abind::abind(., along = 3)
    7. ├─purrr::when(., . > 0 ~ purrr::invoke(fun, args), ~NULL)
    8. │ └─base::eval(dots[[i]][[action]], env, env)
    9. │   └─base::eval(dots[[i]][[action]], env, env)
   10. │     ├─purrr::invoke(fun, args)
   11. │     │ └─base::do.call(.f, args, envir = .env)
   12. │     └─diceR (local) `<fn>`(...)
   13. │       └─diceR:::nmf_transform(data)
   14. │         └─... %>% suppressMessages()
   15. ├─base::suppressMessages(.)
   16. │ └─base::withCallingHandlers(...)
   17. ├─purrr::map_dfc(., ~ifelse(.x < 0, 0, .x))
   18. │ └─dplyr::bind_cols(res)
   19. │   ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   20. │   │ └─base::withCallingHandlers(...)
   21. │   └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   22. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   23. │ └─rlang::names_inform_repair(orig_names, names)
   24. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   25. │     ├─base::withRestarts(...)
   26. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   27. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   28. │     └─base::signalCondition(cnd)
   29. │       ├─base::conditionMessage(cond)
   30. │       └─rlang:::conditionMessage.rlang_message(cond)
   31. │         └─rlang::cnd_message(c)
   32. │           └─rlang:::cnd_message_format(cnd, ...)
   33. │             └─rlang (local) cli_format(glue_escape(lines))
   34. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   35. │                 └─cli::cli_format(x, .envir = emptyenv())
   36. │                   └─cli:::fmt(...)
   37. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   38. │                       ├─base::do.call(app[[msg$type]], msg$args)
   39. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-2178", class = NULL)
   40. │                         └─cli:::clii_bullets(app, text, id, class)
   41. │                           └─base::lapply(...)
   42. │                             └─cli (local) FUN(X[[i]], ...)
   43. │                               └─app$text(text[[i]])
   44. │                                 └─cli:::clii_text(app, text)
   45. │                                   └─app$xtext(text)
   46. │                                     └─cli:::clii__xtext(...)
   47. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   48. │                                         └─base::lapply(pars, ansi_trimws)
   49. │                                           └─cli (local) FUN(X[[i]], ...)
   50. └─base::.handleSimpleError(...)
   51.   └─dplyr (local) h(simpleError(msg, call))
   52.     └─rlang::cnd_signal(cnd)
  ── Error (test-consensus_funs.R:4:1): (code run outside of `test_that()`) ──────
  Error in `dplyr::bind_cols(res)`: number of characters is not computable in "bytes" encoding, element 1
  Backtrace:
       ▆
    1. ├─diceR::consensus_cluster(...) at test-consensus_funs.R:4:0
    2. │ ├─purrr::pmap(list(fun, args), cc) %>% abind::abind(along = 3)
    3. │ └─purrr::pmap(list(fun, args), cc)
    4. │   └─diceR (local) .f(.l[[1L]][[i]], .l[[2L]][[i]], ...)
    5. │     └─length(args$algs) %>% ...
    6. ├─abind::abind(., along = 3)
    7. ├─purrr::when(., . > 0 ~ purrr::invoke(fun, args), ~NULL)
    8. │ └─base::eval(dots[[i]][[action]], env, env)
    9. │   └─base::eval(dots[[i]][[action]], env, env)
   10. │     ├─purrr::invoke(fun, args)
   11. │     │ └─base::do.call(.f, args, envir = .env)
   12. │     └─diceR (local) `<fn>`(...)
   13. │       └─diceR:::nmf_transform(data)
   14. │         └─... %>% suppressMessages()
   15. ├─base::suppressMessages(.)
   16. │ └─base::withCallingHandlers(...)
   17. ├─purrr::map_dfc(., ~ifelse(.x < 0, 0, .x))
   18. │ └─dplyr::bind_cols(res)
   19. │   ├─dplyr:::fix_call(vec_cbind(!!!dots, .name_repair = .name_repair))
   20. │   │ └─base::withCallingHandlers(...)
   21. │   └─vctrs::vec_cbind(!!!dots, .name_repair = .name_repair)
   22. ├─vctrs:::describe_repair(`<chr>`, `<chr>`)
   23. │ └─rlang::names_inform_repair(orig_names, names)
   24. │   └─rlang::inform(message = message, class = "rlib_message_name_repair")
   25. │     ├─base::withRestarts(...)
   26. │     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   27. │     │   └─base (local) doWithOneRestart(return(expr), restart)
   28. │     └─base::signalCondition(cnd)
   29. │       ├─base::conditionMessage(cond)
   30. │       └─rlang:::conditionMessage.rlang_message(cond)
   31. │         └─rlang::cnd_message(c)
   32. │           └─rlang:::cnd_message_format(cnd, ...)
   33. │             └─rlang (local) cli_format(glue_escape(lines))
   34. │               └─rlang:::.rlang_cli_format(x, cli::format_message)
   35. │                 └─cli::cli_format(x, .envir = emptyenv())
   36. │                   └─cli:::fmt(...)
   37. │                     └─cli:::cli__fmt(rec, collapse, strip_newline, app)
   38. │                       ├─base::do.call(app[[msg$type]], msg$args)
   39. │                       └─cli (local) `<fn>`(text = `<named list>`, id = "cli-24140-2904", class = NULL)
   40. │                         └─cli:::clii_bullets(app, text, id, class)
   41. │                           └─base::lapply(...)
   42. │                             └─cli (local) FUN(X[[i]], ...)
   43. │                               └─app$text(text[[i]])
   44. │                                 └─cli:::clii_text(app, text)
   45. │                                   └─app$xtext(text)
   46. │                                     └─cli:::clii__xtext(...)
   47. │                                       └─cli::ansi_strwrap(text, exdent = exdent, width = app$get_width(extra = padding))
   48. │                                         └─base::lapply(pars, ansi_trimws)
   49. │                                           └─cli (local) FUN(X[[i]], ...)
   50. └─base::.handleSimpleError(...)
   51.   └─dplyr (local) h(simpleError(msg, call))
   52.     └─rlang::cnd_signal(cnd)
  
  [ FAIL 4 | WARN 2 | SKIP 0 | PASS 94 ]
  Error: Test failures
  Execution halted