Running ‘testthat.R’ [2s/3s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(opticskxi)
  > 
  > test_check("opticskxi")
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 1 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-dimred.R:9:1'): fortify_dimred ─────────────────────────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'plyr'
  Backtrace:
       ▆
    1. ├─opticskxi (local) test_fortify_dimred()
    2. │ ├─testthat::expect_is(fortify_dimred(pca$x, pca$rotation), "data.frame") at test-dimred.R:7:3
    3. │ │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │ │   └─rlang::eval_bare(expr, quo_get_env(quo))
    5. │ └─opticskxi::fortify_dimred(pca$x, pca$rotation)
    6. │   └─df_dimred %<>% plyr::rbind.fill(df_vars)
    7. └─base::loadNamespace(x)
    8.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
    9.     └─base (local) withOneRestart(expr, restarts[[1L]])
   10.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-dimred.R:14:1'): fortify_pca ───────────────────────────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'plyr'
  Backtrace:
       ▆
    1. ├─opticskxi (local) test_fortify_pca()
    2. │ ├─testthat::expect_is(fortify_pca(iris[-5]), "data.frame") at test-dimred.R:12:3
    3. │ │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │ │   └─rlang::eval_bare(expr, quo_get_env(quo))
    5. │ └─opticskxi::fortify_pca(iris[-5])
    6. │   └─stats::prcomp(m_data, ...) %$% ...
    7. ├─base::with(...)
    8. ├─base::with.default(...)
    9. │ └─base::eval(substitute(expr), data, enclos = parent.frame())
   10. │   └─base::eval(substitute(expr), data, enclos = parent.frame())
   11. │     └─opticskxi::fortify_dimred(...)
   12. │       └─df_dimred %<>% plyr::rbind.fill(df_vars)
   13. └─base::loadNamespace(x)
   14.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   15.     └─base (local) withOneRestart(expr, restarts[[1L]])
   16.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-dimred.R:19:1'): fortify_ica ───────────────────────────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'plyr'
  Backtrace:
       ▆
    1. ├─opticskxi (local) test_fortify_ica()
    2. │ ├─testthat::expect_is(fortify_ica(iris[-5], 3), "data.frame") at test-dimred.R:17:3
    3. │ │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    4. │ │   └─rlang::eval_bare(expr, quo_get_env(quo))
    5. │ └─opticskxi::fortify_ica(iris[-5], 3)
    6. │   └─... %>% fortify_dimred(ica$S, ., sup_vars = sup_vars)
    7. ├─opticskxi::fortify_dimred(ica$S, ., sup_vars = sup_vars)
    8. │ └─df_dimred %<>% plyr::rbind.fill(df_vars)
    9. └─base::loadNamespace(x)
   10.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   11.     └─base (local) withOneRestart(expr, restarts[[1L]])
   12.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-optics_plots.R:4:1'): (code run outside of `test_that()`) ──────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'plyr'
  Backtrace:
       ▆
    1. ├─opticskxi::fortify_pca(iris_scaled) at test-optics_plots.R:4:1
    2. │ └─stats::prcomp(m_data, ...) %$% ...
    3. ├─base::with(...)
    4. ├─base::with.default(...)
    5. │ └─base::eval(substitute(expr), data, enclos = parent.frame())
    6. │   └─base::eval(substitute(expr), data, enclos = parent.frame())
    7. │     └─opticskxi::fortify_dimred(...)
    8. │       └─df_dimred %<>% plyr::rbind.fill(df_vars)
    9. └─base::loadNamespace(x)
   10.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   11.     └─base (local) withOneRestart(expr, restarts[[1L]])
   12.       └─base (local) doWithOneRestart(return(expr), restart)
  ── Error ('test-opticskxi.R:5:1'): (code run outside of `test_that()`) ─────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'dbscan'
  Backtrace:
       ▆
    1. ├─opticskxi::opticskxi_pipeline(scale(iris[-5]), params) at test-opticskxi.R:5:1
    2. │ └─df_params %<>% ...
    3. ├─opticskxi:::derive_column(...)
    4. │ └─parallel::mclapply(...)
    5. │   └─base::lapply(X = X, FUN = FUN, ...)
    6. │     └─opticskxi (local) FUN(X[[i]], ...)
    7. │       └─base::do.call(fun, as.list(stats::setNames(params, param_names)))
    8. └─base::loadNamespace(x)
    9.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   10.     └─base (local) withOneRestart(expr, restarts[[1L]])
   11.       └─base (local) doWithOneRestart(return(expr), restart)
  
  [ FAIL 5 | WARN 0 | SKIP 0 | PASS 1 ]
  Error: Test failures
  Execution halted