Running ‘testthat.R’ [221s/229s]
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 1 | WARN 6 | SKIP 0 | PASS 110 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-consensus_cluster.R:11:3'): No algorithms means all algorithms, output is an array ──
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::pmap(list(fun, args), cc)`: ℹ In index: 3.
  Caused by error:
  ! Package "mixedClust" is needed. Please install it.
  Backtrace:
       ▆
    1. ├─diceR::consensus_cluster(hgsc, nk = 4, reps = 1, progress = FALSE) at test-consensus_cluster.R:11:3
    2. │ ├─purrr::pmap(list(fun, args), cc) %>% abind::abind(along = 3)
    3. │ └─purrr::pmap(list(fun, args), cc)
    4. │   └─purrr:::pmap_("list", .l, .f, ..., .progress = .progress)
    5. │     ├─purrr:::with_indexed_errors(...)
    6. │     │ └─base::withCallingHandlers(...)
    7. │     ├─purrr:::call_with_cleanup(...)
    8. │     └─diceR (local) .f(.l[[1L]][[i]], .l[[2L]][[i]], ...)
    9. │       └─length(args$algs) %>% ...
   10. ├─abind::abind(., along = 3)
   11. ├─purrr::when(., . > 0 ~ purrr::invoke(fun, args), ~NULL)
   12. │ └─base::eval(dots[[i]][[action]], env, env)
   13. │   └─base::eval(dots[[i]][[action]], env, env)
   14. │     ├─purrr::invoke(fun, args)
   15. │     │ └─base::do.call(.f, args, envir = .env)
   16. │     └─diceR (local) `<fn>`(...)
   17. │       └─diceR:::block(x, nk[k])
   18. │         └─base::stop(...)
   19. └─base::.handleSimpleError(...)
   20.   └─purrr (local) h(simpleError(msg, call))
   21.     └─cli::cli_abort(...)
   22.       └─rlang::abort(...)
  
  [ FAIL 1 | WARN 6 | SKIP 0 | PASS 110 ]
  Error: Test failures
  Execution halted