Running 'testthat.R' [112s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > suppressPackageStartupMessages(library(testthat))
  > suppressPackageStartupMessages(library(pulsar))
  > 
  > testthat::test_check("pulsar")
  Saving _problems/test_pulsar-23.R
  Saving _problems/test_pulsar-25.R
  Saving _problems/test_pulsar-38.R
  Saving _problems/test_pulsar-41.R
  [ FAIL 4 | WARN 8 | SKIP 0 | PASS 304 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_pulsar.R:22:1'): weird lambda path results in correct error or warning ──
  Error in `.huge_default_lambda(S, d, nlambda, lambda.min.ratio, lambda)`: lambda must be non-increasing for method = "mb" or "glasso"; tied values are allowed.
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...)
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─pulsar (local) pfun(dat$data, fun = fun, fargs = hargs, rep.num = 3, ...)
    7.   └─pulsar:::.try_mclapply(...)
    8.     ├─base::withCallingHandlers(...)
    9.     └─parallel::mclapply(X, FUN, mc.cores = 1L, ...)
   10.       └─base::lapply(X, FUN, ...)
   11.         └─pulsar (local) FUN(X[[i]], ...)
   12.           ├─base::do.call(fun, c(fargs, list(data[ind.sample, ])))
   13.           └─huge (local) `<fn>`(verbose = FALSE, scr = TRUE, lambda = `<dbl>`, `<dbl[,15]>`)
   14.             └─huge::huge.mb(...)
   15.               └─huge:::.huge_default_lambda(...)
  ── Error ('test_pulsar.R:24:1'): weird lambda path results in correct error or warning ──
  Error in `.huge_default_lambda(S, d, nlambda, lambda.min.ratio, lambda)`: lambda must be non-increasing for method = "mb" or "glasso"; tied values are allowed.
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...)
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─pulsar (local) pfun(dat$data, fun = fun, fargs = hargs, rep.num = 3, ...)
    7.   └─pulsar:::.try_mclapply(...)
    8.     ├─base::withCallingHandlers(...)
    9.     └─parallel::mclapply(X, FUN, mc.cores = 1L, ...)
   10.       └─base::lapply(X, FUN, ...)
   11.         └─pulsar (local) FUN(X[[i]], ...)
   12.           ├─base::do.call(fun, c(fargs, list(data[ind.sample, ])))
   13.           └─huge (local) `<fn>`(verbose = FALSE, scr = TRUE, lambda = `<dbl>`, `<dbl[,15]>`)
   14.             └─huge::huge.mb(...)
   15.               └─huge:::.huge_default_lambda(...)
  ── Error ('test_pulsar.R:36:1'): weird lambda path results in correct error or warning ──
  <subscriptOutOfBoundsError/error/condition>
  Error in `est$merge[[i]]`: subscript out of bounds
  Backtrace:
      ▆
   1. ├─testthat::expect_warning(...)
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat (local) .capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─pulsar (local) pfun(dat$data, fun = fun, fargs = hargs, rep.num = 3, ...)
   7.   └─pulsar:::stars.stability(NULL, thresh, rep.num, p, starsmerge)
  ── Error ('test_pulsar.R:39:1'): weird lambda path results in correct error or warning ──
  Error: Job with id 1 not terminated
  Backtrace:
      ▆
   1. ├─testthat::expect_warning(...)
   2. │ └─testthat:::quasi_capture(...)
   3. │   ├─testthat (local) .capture(...)
   4. │   │ └─base::withCallingHandlers(...)
   5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
   6. └─pulsar (local) pfun(dat$data, fun = fun, fargs = hargs, rep.num = 3, ...)
   7.   └─batchtools::loadResult(id = 1, reg = reg)
   8.     └─batchtools:::stopf("Job with id %i not terminated", id$job.id)
  
  [ FAIL 4 | WARN 8 | SKIP 0 | PASS 304 ]
  Error:
  ! Test failures.
  Execution halted