Running ‘testthat.R’ [21s/28s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > test_check("JWileymisc")
  Loading required package: JWileymisc
  Saving _problems/test-APAStyler-36.R
  $`1`
  
  $`2`
  
  attr(,"class")
  [1] "list"      "ggarrange"
  Saving _problems/test-modelTest-104.R
  Saving _problems/test-modelTest-116.R
  Loading required namespace: GPArotation
  [ FAIL 3 | WARN 1 | SKIP 1 | PASS 413 ]
  
  ══ Skipped tests (1) ═══════════════════════════════════════════════════════════
  • On CRAN (1): 'test-distributions.R:75:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-APAStyler.R:36:3'): APAStyler works with vglm model tests ──────
  Error in ``[.data.table`(FE, , `:=`(Count, .N), by = Term)`: attempt access index 6/6 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─JWileymisc::APAStyler(mt, print = FALSE) at test-APAStyler.R:36:3
   2. └─JWileymisc:::APAStyler.modelTest.vglm(mt, print = FALSE)
   3.   ├─FE[, `:=`(Count, .N), by = Term]
   4.   └─data.table:::`[.data.table`(FE, , `:=`(Count, .N), by = Term)
  ── Error ('test-modelTest.R:104:3'): modelTest works with vglm objects. ────────
  Error in ``[.data.table`(FE, , `:=`(Count, .N), by = Term)`: attempt access index 6/6 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─testthat::expect_s3_class(APAStyler(mt), "data.table") at test-modelTest.R:104:3
   2. │ └─testthat::quasi_label(enquo(object))
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─JWileymisc::APAStyler(mt)
   5. └─JWileymisc:::APAStyler.modelTest.vglm(mt)
   6.   ├─FE[, `:=`(Count, .N), by = Term]
   7.   └─data.table:::`[.data.table`(FE, , `:=`(Count, .N), by = Term)
  ── Error ('test-modelTest.R:116:3'): modelTest works with vglm objects with multiple predictors. ──
  Error in ``[.data.table`(FE, , `:=`(Count, .N), by = Term)`: attempt access index 6/6 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─testthat::expect_s3_class(APAStyler(mt), "data.table") at test-modelTest.R:116:3
   2. │ └─testthat::quasi_label(enquo(object))
   3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
   4. ├─JWileymisc::APAStyler(mt)
   5. └─JWileymisc:::APAStyler.modelTest.vglm(mt)
   6.   ├─FE[, `:=`(Count, .N), by = Term]
   7.   └─data.table:::`[.data.table`(FE, , `:=`(Count, .N), by = Term)
  
  [ FAIL 3 | WARN 1 | SKIP 1 | PASS 413 ]
  Error:
  ! Test failures.
  Execution halted