Running 'testthat.R' [117s]
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
  == Failed tests ================================================================
  -- Error (test-dice.R:52:3): algorithm vs internal index heatmap works ---------
  Error: `.data` must be a data frame without row names.
  Backtrace:
      x
   1. +-diceR::dice(...) test-dice.R:52:2
   2. | \-diceR:::algii_heatmap(data, k, E, clusters, ref.cl)
   3. |   \-`%>%`(...)
   4. \-tibble::column_to_rownames(., "Algorithms")
  -- Failure (test-graphs.R:46:3): algii_heatmap works when there is more than one k --
  `dice(...)` threw an error.
  Message: `.data` must be a data frame without row names.
  Class:   tibble_error_already_has_rownames/tibble_error/rlang_error/error/condition
  Backtrace:
      x
   1. +-testthat::expect_error(...) test-graphs.R:46:2
   2. | \-testthat:::quasi_capture(...)
   3. |   +-testthat:::.capture(...)
   4. |   | \-base::withCallingHandlers(...)
   5. |   \-rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. +-diceR::dice(...)
   7. | \-diceR:::algii_heatmap(data, k, E, clusters, ref.cl)
   8. |   \-`%>%`(...)
   9. \-tibble::column_to_rownames(., "Algorithms")
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 110 ]
  Error: Test failures
  Execution halted