Running ‘testthat.R’ [16s/21s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/testing-design.html#sec-tests-files-overview
  > # * https://testthat.r-lib.org/articles/special-files.html
  > 
  > library(testthat)
  > library(pandemonium)
  > 
  > test_check("pandemonium")
  Saving _problems/test-plotting-13.R
  Saving _problems/test-plotting-28.R
  Target: 0.024, 177.5% better 
  Target: 0.026, 7.6% better 
  Target: 0.030, 17.0% better 
  Target: 0.032, 5.7% better 
  Target: 0.032, 1.4% better 
  Target: 0.032, 0.4% better 
  Target: 0.032, 1.0% better 
  Target: 0.033, 0.2% better 
  Target: 0.033, 0.3% better 
  Target: 0.033, 0.1% better 
  Target: 0.033, 0.5% better 
  Target: 0.033, 0.4% better 
  Target: 0.033, 0.2% better 
  Target: 0.033, 0.1% better 
  No better bases found after 25 tries.  Giving up.
  Final projection: 
   0.244  -0.158  
  -0.394   0.297  
   0.015  -0.353  
   0.149  -0.199  
  -0.400  -0.378  
  -0.055   0.210  
   0.347   0.681  
   0.692  -0.268  
  Saving _problems/test-plotting-35.R
  Saving _problems/test-plotting-42.R
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 5 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-plotting.R:10:3'): tour works ────────────────────────────────
  Expected `makePlots(...)` not to throw any conditions.
  Actually got a <simpleError> with message:
    incorrect number of dimensions
  ── Failure ('test-plotting.R:25:3'): radial tour works with random basis ───────
  Expected `makePlots(...)` not to throw any conditions.
  Actually got a <simpleError> with message:
    incorrect number of dimensions
  ── Error ('test-plotting.R:32:3'): radial tour works with ppi basis ────────────
  Error in `unclass(x)[i, j, k, drop = FALSE]`: incorrect number of dimensions
  Backtrace:
       ▆
    1. ├─testthat::expect_message(...) at test-plotting.R:32:3
    2. │ └─testthat:::expect_condition_matching_(...)
    3. │   └─testthat:::quasi_capture(...)
    4. │     ├─testthat (local) .capture(...)
    5. │     │ └─base::withCallingHandlers(...)
    6. │     └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    7. ├─pandemonium::makePlots(...)
    8. │ └─pandemonium:::tourMaker(...)
    9. │   └─... %>% detourr::show_scatter(palette = pal)
   10. ├─detourr::show_scatter(., palette = pal)
   11. │ └─detourr:::show_scatter_internal(...)
   12. │   └─detourr::is_detour(x)
   13. └─detourr::tour_path(., tourPath, fps = 60, aps = angles, max_bases = tour_bases)
   14.   └─purrr::array_branch(projection_matrices, 3)
   15.     └─base::apply(array, margin, list)
   16.       ├─base::array(newX[, i], d.call, dn.call)
   17.       ├─newX[, i]
   18.       └─tourr:::`[.history_array`(newX, , i)
  ── Failure ('test-plotting.R:39:3'): tour final frame works ────────────────────
  Expected `makePlots(...)` not to throw any conditions.
  Actually got a <simpleError> with message:
    incorrect number of dimensions
  
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 5 ]
  Error:
  ! Test failures.
  Execution halted