Running ‘testthat.R’ [143s/356s]
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
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-consensus_cluster.R:5:3): No algorithms means all algorithms, output is an array ──
  Error: number of items to replace is not a multiple of replacement length
  Backtrace:
       █
    1. ├─diceR::consensus_cluster(hgsc, nk = 4, reps = 1, progress = FALSE) test-consensus_cluster.R:5:2
    2. │ ├─purrr::pmap(list(fun, args), cc) %>% abind::abind(along = 3)
    3. │ └─purrr::pmap(list(fun, args), cc)
    4. │   └─diceR:::.f(.l[[1L]][[i]], .l[[2L]][[i]], ...)
    5. │     └─`%>%`(...)
    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.       └─(function (data, nk, p.item, reps, algs, xdim, ydim, rlen, alpha, ...
  
  [ FAIL 1 | WARN 0 | SKIP 0 | PASS 110 ]
  Error: Test failures
  Execution halted