Running ‘testthat.R’ [6s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(glmmPen)
  Loading required package: lme4
  Loading required package: Matrix
  Loading required package: bigmemory
  Loading required package: Rcpp
  > 
  > test_check("glmmPen")
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 6 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-args-input.R:13'): test mis-specification of glmmPen arguments ──
  <vctrs_error_incompatible_size/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `str_c(rep(colnames(X), each = d), ":", 1:d)`: Can't recycle `..1` (size 25) to match `..3` (size 5).
  Backtrace:
      ▆
   1. ├─glmmPen::sim.data(...) at test-args-input.R:13:2
   2. │ └─stringr::str_c(rep(colnames(X), each = d), ":", 1:d)
   3. │   └─vctrs::vec_size_common(!!!dots)
   4. └─vctrs::stop_incompatible_size(...)
   5.   └─vctrs:::stop_incompatible(...)
   6.     └─vctrs:::stop_vctrs(...)
   7.       └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-args-input.R:50'): test mis-specification of optimControl arguments ──
  <vctrs_error_incompatible_size/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `str_c(rep(colnames(X), each = d), ":", 1:d)`: Can't recycle `..1` (size 25) to match `..3` (size 5).
  Backtrace:
      ▆
   1. ├─glmmPen::sim.data(...) at test-args-input.R:50:2
   2. │ └─stringr::str_c(rep(colnames(X), each = d), ":", 1:d)
   3. │   └─vctrs::vec_size_common(!!!dots)
   4. └─vctrs::stop_incompatible_size(...)
   5.   └─vctrs:::stop_incompatible(...)
   6.     └─vctrs:::stop_vctrs(...)
   7.       └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-args-input.R:83'): test mis-specification of selectControl arguments ──
  <vctrs_error_incompatible_size/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `str_c(rep(colnames(X), each = d), ":", 1:d)`: Can't recycle `..1` (size 25) to match `..3` (size 5).
  Backtrace:
      ▆
   1. ├─glmmPen::sim.data(...) at test-args-input.R:83:2
   2. │ └─stringr::str_c(rep(colnames(X), each = d), ":", 1:d)
   3. │   └─vctrs::vec_size_common(!!!dots)
   4. └─vctrs::stop_incompatible_size(...)
   5.   └─vctrs:::stop_incompatible(...)
   6.     └─vctrs:::stop_vctrs(...)
   7.       └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Failure ('test-data-input.R:62'): test random effects specifications meet model assumptions ──
  `glmmPen(...)` threw an error with unexpected message.
  Expected match: "random effects must be a subset of fixed effects"
  Actual message: "Can't recycle `..1` (size 15) to match `..3` (size 5)."
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-data-input.R:62:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─glmmPen::glmmPen(...)
    7. │ └─glmmPen:::fD_adj(out = fD_out0)
    8. │   └─stringr::str_c(rep(cnms, each = d), ":", levels(group))
    9. │     └─vctrs::vec_size_common(!!!dots)
   10. └─vctrs::stop_incompatible_size(...)
   11.   └─vctrs:::stop_incompatible(...)
   12.     └─vctrs:::stop_vctrs(...)
   13.       └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  
  [ FAIL 4 | WARN 0 | SKIP 0 | PASS 6 ]
  Error: Test failures
  Execution halted