Running 'testthat.R' [2s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(detourr)
  > 
  > test_check("detourr")
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 7 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-show_scatter.R:5:3'): axes work ────────────────────────────────
  Error in `.subset(x, i, j, k, drop = FALSE)`: incorrect number of dimensions
  Backtrace:
       ▆
    1. ├─detourr::show_scatter(...) at test-show_scatter.R:5:3
    2. │ └─detourr:::show_scatter_internal(...)
    3. │   └─detourr::is_detour(x)
    4. └─detourr::tour_path(...)
    5.   ├─detourr:::quiet(tourr::interpolate(bases, aps/fps))
    6.   │ └─base::force(x)
    7.   └─tourr::interpolate(bases, aps/fps)
    8.     ├─tourr::new_tour(basis_set[, , 1], planned_tour(basis_set, cycle))
    9.     │ └─base::stopifnot(inherits(tour_path, "tour_path"))
   10.     └─tourr::planned_tour(basis_set, cycle)
   11.       ├─base::as.list(basis_set)
   12.       └─tourr:::as.list.history_array(basis_set)
   13.         ├─base::do.call("c", apply(x, 3, list))
   14.         └─base::apply(x, 3, list)
   15.           ├─base::array(newX[, i], d.call, dn.call)
   16.           ├─newX[, i]
   17.           └─tourr:::`[.history_array`(newX, , i)
  ── Error ('test-show_scatter.R:48:3'): colours work ────────────────────────────
  Error in `.subset(x, i, j, k, drop = FALSE)`: incorrect number of dimensions
  Backtrace:
       ▆
    1. ├─detourr::show_scatter(...) at test-show_scatter.R:48:3
    2. │ └─detourr:::show_scatter_internal(...)
    3. │   └─detourr::is_detour(x)
    4. └─detourr::tour_path(...)
    5.   ├─detourr:::quiet(tourr::interpolate(bases, aps/fps))
    6.   │ └─base::force(x)
    7.   └─tourr::interpolate(bases, aps/fps)
    8.     ├─tourr::new_tour(basis_set[, , 1], planned_tour(basis_set, cycle))
    9.     │ └─base::stopifnot(inherits(tour_path, "tour_path"))
   10.     └─tourr::planned_tour(basis_set, cycle)
   11.       ├─base::as.list(basis_set)
   12.       └─tourr:::as.list.history_array(basis_set)
   13.         ├─base::do.call("c", apply(x, 3, list))
   14.         └─base::apply(x, 3, list)
   15.           ├─base::array(newX[, i], d.call, dn.call)
   16.           ├─newX[, i]
   17.           └─tourr:::`[.history_array`(newX, , i)
  ── Error ('test-show_scatter.R:107:3'): labels work ────────────────────────────
  Error in `.subset(x, i, j, k, drop = FALSE)`: incorrect number of dimensions
  Backtrace:
       ▆
    1. ├─detourr::show_scatter(...) at test-show_scatter.R:107:3
    2. │ └─detourr:::show_scatter_internal(...)
    3. │   └─detourr::is_detour(x)
    4. └─detourr::tour_path(...)
    5.   ├─detourr:::quiet(tourr::interpolate(bases, aps/fps))
    6.   │ └─base::force(x)
    7.   └─tourr::interpolate(bases, aps/fps)
    8.     ├─tourr::new_tour(basis_set[, , 1], planned_tour(basis_set, cycle))
    9.     │ └─base::stopifnot(inherits(tour_path, "tour_path"))
   10.     └─tourr::planned_tour(basis_set, cycle)
   11.       ├─base::as.list(basis_set)
   12.       └─tourr:::as.list.history_array(basis_set)
   13.         ├─base::do.call("c", apply(x, 3, list))
   14.         └─base::apply(x, 3, list)
   15.           ├─base::array(newX[, i], d.call, dn.call)
   16.           ├─newX[, i]
   17.           └─tourr:::`[.history_array`(newX, , i)
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 7 ]
  Error:
  ! Test failures.
  Execution halted