Running ‘spelling.R’
  Running ‘testthat.R’ [33s/75s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(rules)
  Loading required package: parsnip
  > 
  > test_check("rules")
  ── 1. Error: mulit-predict  ────────────────────────────────────────────────────
  Column name `.rows` must not be duplicated.
  Backtrace:
    1. parsnip::multi_predict(c5_fit, ad_mod_x[1:5, -1], trees = 1:3)
    2. rules:::multi_predict._c5_rules(c5_fit, ad_mod_x[1:5, -1], trees = 1:3)
   10. dplyr::group_by(., .rows)
   12. dplyr::grouped_df(groups$data, groups$group_names, .drop)
   13. dplyr:::compute_groups(data, vars, drop = drop)
   14. tibble::tibble(!!!old_keys, `:=`(".rows", old_rows))
   15. tibble:::tibble_quos(xs[!is_null], .rows, .name_repair)
   16. tibble:::set_repaired_names(output, .name_repair = .name_repair)
   18. tibble:::repaired_names(...)
   19. tibble:::subclass_name_repair_errors(...)
   20. base::tryCatch(...)
   21. base:::tryCatchList(expr, classes, parentenv, handlers)
   22. base:::tryCatchOne(...)
   23. value[[3L]](cond)
  
  ── 2. Failure: formula method (@test-rule-fit-binomial.R#52)  ──────────────────
  `rf_m_pred <- multi_predict(rf_fit, ad_pred, penalty = vals)` threw an error.
  Message: Column name `.rows` must not be duplicated.
  Class:   tibble_error_column_names_must_be_unique/tibble_error/rlang_error/error/condition
  Backtrace:
    1. testthat::expect_error(...)
    7. rules:::multi_predict._xrf(rf_fit, ad_pred, penalty = vals)
    8. rules::xrf_pred(...)
    9. rules:::organize_xrf_multi_pred(res, object, lambda, object$fit$family)
    5. dplyr::mutate(., penalty = rep(penalty, nrow(x)))
   12. dplyr::group_by(., .rows)
   19. dplyr::grouped_df(groups$data, groups$group_names, .drop)
   20. dplyr:::compute_groups(data, vars, drop = drop)
   21. tibble::tibble(!!!old_keys, `:=`(".rows", old_rows))
   22. tibble:::tibble_quos(xs[!is_null], .rows, .name_repair)
   23. tibble:::set_repaired_names(output, .name_repair = .name_repair)
   25. tibble:::repaired_names(...)
   26. tibble:::subclass_name_repair_errors(...)
   27. base::tryCatch(...)
   28. base:::tryCatchList(expr, classes, parentenv, handlers)
   29. base:::tryCatchOne(...)
   30. value[[3L]](cond)
  
  ── 3. Failure: formula method (@test-rule-fit-binomial.R#56)  ──────────────────
  `rf_m_prob <- multi_predict(rf_fit, ad_pred, penalty = vals, type = "prob")` threw an error.
  Message: Column name `.rows` must not be duplicated.
  Class:   tibble_error_column_names_must_be_unique/tibble_error/rlang_error/error/condition
  Backtrace:
    1. testthat::expect_error(...)
    7. rules:::multi_predict._xrf(rf_fit, ad_pred, penalty = vals, type = "prob")
    8. rules::xrf_pred(...)
    9. rules:::organize_xrf_multi_prob(res, object, lambda, object$fit$family)
    5. stats::setNames(., c(".rows", "penalty", paste0(".pred_", object$lvl)))
   12. dplyr::group_by(., .rows)
   19. dplyr::grouped_df(groups$data, groups$group_names, .drop)
   20. dplyr:::compute_groups(data, vars, drop = drop)
   21. tibble::tibble(!!!old_keys, `:=`(".rows", old_rows))
   22. tibble:::tibble_quos(xs[!is_null], .rows, .name_repair)
   23. tibble:::set_repaired_names(output, .name_repair = .name_repair)
   25. tibble:::repaired_names(...)
   26. tibble:::subclass_name_repair_errors(...)
   27. base::tryCatch(...)
   28. base:::tryCatchList(expr, classes, parentenv, handlers)
   29. base:::tryCatchOne(...)
   30. value[[3L]](cond)
  
  ── 4. Error: formula method  ───────────────────────────────────────────────────
  object 'rf_m_pred' not found
  
  ── 5. Failure: non-formula method (@test-rule-fit-binomial.R#131)  ─────────────
  `rf_m_pred <- multi_predict(rf_fit, ad_pred, penalty = vals)` threw an error.
  Message: Column name `.rows` must not be duplicated.
  Class:   tibble_error_column_names_must_be_unique/tibble_error/rlang_error/error/condition
  Backtrace:
    1. testthat::expect_error(...)
    7. rules:::multi_predict._xrf(rf_fit, ad_pred, penalty = vals)
    8. rules::xrf_pred(...)
    9. rules:::organize_xrf_multi_pred(res, object, lambda, object$fit$family)
    5. dplyr::mutate(., penalty = rep(penalty, nrow(x)))
   12. dplyr::group_by(., .rows)
   19. dplyr::grouped_df(groups$data, groups$group_names, .drop)
   20. dplyr:::compute_groups(data, vars, drop = drop)
   21. tibble::tibble(!!!old_keys, `:=`(".rows", old_rows))
   22. tibble:::tibble_quos(xs[!is_null], .rows, .name_repair)
   23. tibble:::set_repaired_names(output, .name_repair = .name_repair)
   25. tibble:::repaired_names(...)
   26. tibble:::subclass_name_repair_errors(...)
   27. base::tryCatch(...)
   28. base:::tryCatchList(expr, classes, parentenv, handlers)
   29. base:::tryCatchOne(...)
   30. value[[3L]](cond)
  
  ── 6. Failure: non-formula method (@test-rule-fit-binomial.R#135)  ─────────────
  `rf_m_prob <- multi_predict(rf_fit, ad_pred, penalty = vals, type = "prob")` threw an error.
  Message: Column name `.rows` must not be duplicated.
  Class:   tibble_error_column_names_must_be_unique/tibble_error/rlang_error/error/condition
  Backtrace:
    1. testthat::expect_error(...)
    7. rules:::multi_predict._xrf(rf_fit, ad_pred, penalty = vals, type = "prob")
    8. rules::xrf_pred(...)
    9. rules:::organize_xrf_multi_prob(res, object, lambda, object$fit$family)
    5. stats::setNames(., c(".rows", "penalty", paste0(".pred_", object$lvl)))
   12. dplyr::group_by(., .rows)
   19. dplyr::grouped_df(groups$data, groups$group_names, .drop)
   20. dplyr:::compute_groups(data, vars, drop = drop)
   21. tibble::tibble(!!!old_keys, `:=`(".rows", old_rows))
   22. tibble:::tibble_quos(xs[!is_null], .rows, .name_repair)
   23. tibble:::set_repaired_names(output, .name_repair = .name_repair)
   25. tibble:::repaired_names(...)
   26. tibble:::subclass_name_repair_errors(...)
   27. base::tryCatch(...)
   28. base:::tryCatchList(expr, classes, parentenv, handlers)
   29. base:::tryCatchOne(...)
   30. value[[3L]](cond)
  
  ── 7. Error: non-formula method  ───────────────────────────────────────────────
  object 'rf_m_pred' not found
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 55 | SKIPPED: 12 | WARNINGS: 4 | FAILED: 7 ]
  1. Error: mulit-predict 
  2. Failure: formula method (@test-rule-fit-binomial.R#52) 
  3. Failure: formula method (@test-rule-fit-binomial.R#56) 
  4. Error: formula method 
  5. Failure: non-formula method (@test-rule-fit-binomial.R#131) 
  6. Failure: non-formula method (@test-rule-fit-binomial.R#135) 
  7. Error: non-formula method 
  
  Error: testthat unit tests failed
  Execution halted