Running 'testthat.R' [108s/116s]
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:
       x
    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