Running ‘testthat.R’ [91s/139s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > suppressPackageStartupMessages(library(testthat))
  > suppressPackageStartupMessages(library(pulsar))
  > 
  > testthat::test_check("pulsar")
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 84 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (???): weird lambda path results in correct error or warning ──────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'BigQuic'
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...)
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_warnings)
    3. │   ├─testthat .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─pulsar pfun(dat$data, fun = fun, fargs = hargs, rep.num = 3, ...)
    7. │ └─pulsar:::.try_mclapply(...)
    8. │   ├─base::withCallingHandlers(...)
    9. │   └─parallel::mclapply(X, FUN, mc.cores = mc.cores, ...)
   10. │     └─base::lapply(X = X, FUN = FUN, ...)
   11. │       └─pulsar FUN(X[[i]], ...)
   12. │         ├─base::do.call(fun, c(fargs, list(data[ind.sample, ])))
   13. │         └─global `<fn>`(seed = 10010, lambda = `<dbl>`, `<dbl[,30]>`)
   14. └─base::loadNamespace(x)
   15.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   16.     └─base withOneRestart(expr, restarts[[1L]])
   17.       └─base doWithOneRestart(return(expr), restart)
  ── Error (test_pulsar.R:29:1): (code run outside of `test_that()`) ─────────────
  <packageNotFoundError/error/condition>
  Error in `loadNamespace(x)`: there is no package called 'BigQuic'
  Backtrace:
       ▆
    1. ├─global runtests(...) at test_pulsar.R:29:0
    2. │ └─pulsar pfun(...)
    3. │   └─pulsar:::.try_mclapply(...)
    4. │     ├─base::withCallingHandlers(...)
    5. │     └─parallel::mclapply(X, FUN, mc.cores = mc.cores, ...)
    6. │       └─base::lapply(X = X, FUN = FUN, ...)
    7. │         └─pulsar FUN(X[[i]], ...)
    8. │           ├─base::do.call(fun, c(fargs, list(data[ind.sample, ])))
    9. │           └─global `<fn>`(seed = 10010, lambda = `<dbl>`, `<dbl[,30]>`)
   10. └─base::loadNamespace(x)
   11.   └─base::withRestarts(stop(cond), retry_loadNamespace = function() NULL)
   12.     └─base withOneRestart(expr, restarts[[1L]])
   13.       └─base doWithOneRestart(return(expr), restart)
  
  [ FAIL 2 | WARN 0 | SKIP 0 | PASS 84 ]
  Error: Test failures
  Execution halted