Running 'spelling.R' [0s]
  Running 'testthat.R' [145s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(dplyr)
  
  Attaching package: 'dplyr'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  The following objects are masked from 'package:stats':
  
      filter, lag
  
  The following objects are masked from 'package:base':
  
      intersect, setdiff, setequal, union
  
  > library(statsExpressions)
  > 
  > test_check("statsExpressions")
  Starting 2 test processes
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (43)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-contingency_table.R:219:5): bayes factor (contingency tab) ──────
  <dplyr:::mutate_error/dplyr_error/rlang_error/error/condition>
  Error: Problem with `mutate()` column `expression`.
  i `expression = list(...)`.
  x subscript out of bounds
  Backtrace:
       █
    1. ├─statsExpressions::contingency_table(...)
    2. │ └─`%>%`(...)
    3. ├─statsExpressions:::polish_data(.)
    4. │ ├─dplyr::relocate(as_tibble(data), matches("^effectsize$"), .before = matches("^estimate$"))
    5. │ └─tibble::as_tibble(data)
    6. ├─dplyr::mutate(...)
    7. ├─dplyr:::mutate.data.frame(...)
    8. │ └─dplyr:::mutate_cols(.data, ..., caller_env = caller_env())
    9. │   ├─base::withCallingHandlers(...)
   10. │   └─mask$eval_all_mutate(quo)
   11. ├─statsExpressions::expr_template(...)
   12. │ └─`%<-%`(...)
   13. │   ├─base::tryCatch(...)
   14. │   │ └─base:::tryCatchList(expr, classes, parentenv, handlers)
   15. │   │   ├─base:::tryCatchOne(...)
   16. │   │   │ └─base:::doTryCatch(return(expr), name, parentenv, handler)
   17. │   │   └─base:::tryCatchList(expr, names[-nh], parentenv, handlers[-nh])
   18. │   │     └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   19. │   │       └─base:::doTryCatch(return(expr), name, parentenv, handler)
   20. │   └─zeallot:::multi_assign(substitute(x), value, parent.frame())
   21. └─(function (e) ...
  ── Error (test-oneway_anova_bayes.R:10:5): bayes factor (between-subjects - anova) ──
  Error in `seq.int(from, to)`: 'to' must be a finite number
  Backtrace:
      █
   1. ├─statsExpressions::oneway_anova(...)
   2. │ ├─`%>%`(...)
   3. │ └─statsExpressions:::polish_data(stats_df)
   4. │   ├─dplyr::relocate(as_tibble(data), matches("^effectsize$"), .before = matches("^estimate$"))
   5. │   └─dplyr:::relocate.data.frame(...)
   6. │     ├─generics::setdiff(seq2(1, where - 1), to_move)
   7. │     └─rlang::seq2(1, where - 1)
   8. └─dplyr::mutate(...)
  ── Error (test-oneway_anova_bayes.R:95:7): bayes factor (within-subjects - anova) ──
  Error in `seq.int(from, to)`: 'to' must be a finite number
  Backtrace:
      █
   1. ├─statsExpressions::oneway_anova(...)
   2. │ ├─`%>%`(...)
   3. │ └─statsExpressions:::polish_data(stats_df)
   4. │   ├─dplyr::relocate(as_tibble(data), matches("^effectsize$"), .before = matches("^estimate$"))
   5. │   └─dplyr:::relocate.data.frame(...)
   6. │     ├─generics::setdiff(seq2(1, where - 1), to_move)
   7. │     └─rlang::seq2(1, where - 1)
   8. └─dplyr::mutate(...)
  ── Error (test-loop_execution_bayes.R:81:5): expr_anova works in loop ──────────
  Error in `seq.int(from, to)`: 'to' must be a finite number
  Backtrace:
       █
    1. ├─utils::capture.output(...)
    2. │ └─base::withVisible(...elt(i))
    3. ├─base::print(...)
    4. ├─statsExpressions::oneway_anova(...)
    5. │ ├─`%>%`(...)
    6. │ └─statsExpressions:::polish_data(stats_df)
    7. │   ├─dplyr::relocate(as_tibble(data), matches("^effectsize$"), .before = matches("^estimate$"))
    8. │   └─dplyr:::relocate.data.frame(...)
    9. │     ├─generics::setdiff(seq2(1, where - 1), to_move)
   10. │     └─rlang::seq2(1, where - 1)
   11. └─dplyr::mutate(...)
  
  [ FAIL 4 | WARN 5 | SKIP 43 | PASS 38 ]
  Error: Test failures
  Execution halted