Running 'testthat.R' [7s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(tidyrules)
  > 
  > test_check("tidyrules")
  Saving _problems/test-c5-13.R
  Saving _problems/test-cubist-17.R
  Saving _problems/test-rulelist-16.R
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 17 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-c5.R:13:1'): (code run outside of `test_that()`) ───────────────
  Error in ``[.data.table`(~.df, , `:=`(rule_nbr = 1:.N), by = "trial_nbr", keyby = FALSE)`: attempt access index 6/6 in VECTOR_ELT
  Backtrace:
       ▆
    1. ├─generics::tidy(c5_att) at test-c5.R:13:1
    2. ├─tidyrules:::tidy.C5.0(c5_att)
    3. │ └─... %>% relocate(rule_nbr, trial_nbr)
    4. ├─tidytable::relocate(., rule_nbr, trial_nbr)
    5. ├─tidytable::mutate(., RHS = factor(RHS))
    6. ├─tidytable::mutate(., rule_nbr = 1:n(), .by = trial_nbr)
    7. ├─tidytable:::mutate.tidytable(., rule_nbr = 1:n(), .by = trial_nbr)
    8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
    9. ├─.df[, `:=`(rule_nbr = 1:.N), by = "trial_nbr", keyby = FALSE]
   10. └─data.table:::`[.data.table`(...)
  ── Error ('test-cubist.R:17:1'): (code run outside of `test_that()`) ───────────
  Error in ``[.data.table`(~.df, , `:=`(rule_nbr = seq_len(.N)), by = "committee", keyby = FALSE)`: attempt access index 8/8 in VECTOR_ELT
  Backtrace:
      ▆
   1. ├─generics::tidy(cb_att) at test-cubist.R:17:1
   2. ├─tidyrules:::tidy.cubist(cb_att)
   3. │ └─... %>% ...
   4. ├─tidytable::mutate(., rule_nbr = tidytable::row_number(), .by = committee)
   5. ├─tidytable:::mutate.tidytable(...)
   6. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
   7. ├─.df[, `:=`(rule_nbr = seq_len(.N)), by = "committee", keyby = FALSE]
   8. └─data.table:::`[.data.table`(...)
  ── Error ('test-rulelist.R:16:1'): (code run outside of `test_that()`) ─────────
  Error in ``[.data.table`(~.df, , `:=`(rule_nbr = 1:.N), by = "trial_nbr", keyby = FALSE)`: attempt access index 6/6 in VECTOR_ELT
  Backtrace:
       ▆
    1. ├─generics::tidy(model_c5) at test-rulelist.R:16:1
    2. ├─tidyrules:::tidy.C5.0(model_c5)
    3. │ └─... %>% relocate(rule_nbr, trial_nbr)
    4. ├─tidytable::relocate(., rule_nbr, trial_nbr)
    5. ├─tidytable::mutate(., RHS = factor(RHS))
    6. ├─tidytable::mutate(., rule_nbr = 1:n(), .by = trial_nbr)
    7. ├─tidytable:::mutate.tidytable(., rule_nbr = 1:n(), .by = trial_nbr)
    8. │ └─rlang::eval_tidy(dt_expr, .df, dt_env)
    9. ├─.df[, `:=`(rule_nbr = 1:.N), by = "trial_nbr", keyby = FALSE]
   10. └─data.table:::`[.data.table`(...)
  
  [ FAIL 3 | WARN 0 | SKIP 0 | PASS 17 ]
  Error:
  ! Test failures.
  Execution halted