Running 'testthat.R' [150s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(diceR)
  > 
  > test_check("diceR")
  -- 1. Error: No algorithms means all algorithms, output is an array (@test-conse
  trying to get slot "className" from an object of a basic class ("character") with no slots
  Backtrace:
    1. diceR::consensus_cluster(hgsc, nk = 4, reps = 1, progress = FALSE)
    5. purrr::pmap(list(fun, args), cc)
    6. diceR:::.f(.l[[1L]][[i]], .l[[2L]][[i]], ...)
    7. base::length(args$algs)
   15. purrr::when(., . > 0 ~ purrr::invoke(fun, args), ~NULL)
   16. [ base::eval(...) ] with 1 more call
   21. diceR:::nmf(x, nk[k], nmf.method[j], seed.nmf)
   24. NMF::nmf(t(x), rank = k, method = method, seed = seed)
   26. NMF::nmf(x, rank, method = strategy, ...)
   27. NMF:::.local(x, rank, method, ...)
   28. NMF::is.nmf(seed)
   29. methods::is(x, clref)
  
  -- 2. Error: Progress bar increments across entire function call (@test-consensu
  trying to get slot "className" from an object of a basic class ("character") with no slots
  Backtrace:
    1. diceR::consensus_cluster(...)
    5. purrr::pmap(list(fun, args), cc)
    6. diceR:::.f(.l[[1L]][[i]], .l[[2L]][[i]], ...)
    7. base::length(args$algs)
   15. purrr::when(., . > 0 ~ purrr::invoke(fun, args), ~NULL)
   16. [ base::eval(...) ] with 1 more call
   21. diceR:::nmf(x, nk[k], nmf.method[j], seed.nmf)
   24. NMF::nmf(t(x), rank = k, method = method, seed = seed)
   26. NMF::nmf(x, rank, method = strategy, ...)
   27. NMF:::.local(x, rank, method, ...)
   28. NMF::is.nmf(seed)
   29. methods::is(x, clref)
  
  -- 3. Error: Data preparation on bootstrap samples works (@test-consensus_cluste
  trying to get slot "className" from an object of a basic class ("character") with no slots
  Backtrace:
    1. diceR::consensus_cluster(...)
    5. purrr::pmap(list(fun, args), cc)
    6. diceR:::.f(.l[[1L]][[i]], .l[[2L]][[i]], ...)
    7. base::length(args$algs)
   15. purrr::when(., . > 0 ~ purrr::invoke(fun, args), ~NULL)
   16. [ base::eval(...) ] with 1 more call
   21. diceR:::nmf(x, nk[k], nmf.method[j], seed.nmf)
   24. NMF::nmf(t(x), rank = k, method = method, seed = seed)
   26. NMF::nmf(x, rank, method = strategy, ...)
   27. NMF:::.local(x, rank, method, ...)
   28. NMF::is.nmf(seed)
   29. methods::is(x, clref)
  
  -- 4. Error: (unknown) (@test-consensus_funs.R#6)  -----------------------------
  trying to get slot "className" from an object of a basic class ("character") with no slots
  Backtrace:
    1. diceR::consensus_cluster(...)
    5. purrr::pmap(list(fun, args), cc)
    6. diceR:::.f(.l[[1L]][[i]], .l[[2L]][[i]], ...)
    7. base::length(args$algs)
   15. purrr::when(., . > 0 ~ purrr::invoke(fun, args), ~NULL)
   16. [ base::eval(...) ] with 1 more call
   21. diceR:::nmf(x, nk[k], nmf.method[j], seed.nmf)
   24. NMF::nmf(t(x), rank = k, method = method, seed = seed)
   26. NMF::nmf(x, rank, method = strategy, ...)
   27. NMF:::.local(x, rank, method, ...)
   28. NMF::is.nmf(seed)
   29. methods::is(x, clref)
  
  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
  == testthat results  ===========================================================
  [ OK: 94 | SKIPPED: 0 | WARNINGS: 1 | FAILED: 4 ]
  1. Error: No algorithms means all algorithms, output is an array (@test-consensus_cluster.R#7) 
  2. Error: Progress bar increments across entire function call (@test-consensus_cluster.R#24) 
  3. Error: Data preparation on bootstrap samples works (@test-consensus_cluster.R#38) 
  4. Error: (unknown) (@test-consensus_funs.R#6) 
  
  Error: testthat unit tests failed
  Execution halted