Running 'spelling.R' [0s/0s]
  Running 'testthat.R' [286s/195s]
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:
       x
    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:
      x
   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:
      x
   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:
       x
    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