Running 'testthat.R' [14s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(rainette)
  
  Attaching package: 'rainette'
  
  The following object is masked from 'package:stats':
  
      cutree
  
  > 
  > test_check("rainette")
  -- ERROR (test_cutree.R:28:3): rainette2_complete_groups -----------------------
  Error: Problem with `mutate()` input `members`.
  x level sets of factors are different
  i Input `members` is `compute_members(level1, g1, level2, g2)`.
  Backtrace:
       x
    1. +-rainette::rainette2(res1, res2, min_members = 2) test_cutree.R:28:2
    2. | +-progressr::with_progress(...)
    3. | \-rainette:::filter_crosstab(...)
    4. |   \-`%>%`(...)
    5. |     +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    6. |     \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
    7. |       \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
    8. |         \-rainette:::`_fseq`(`_lhs`)
    9. |           \-magrittr::freduce(value, `_function_list`)
   10. |             \-function_list[[i]](value)
   11. |               +-dplyr::mutate(...)
   12. |               \-dplyr:::mutate.data.frame(...)
   13. |                 \-dplyr:::mutate_cols(.data, ...)
   14. |                   +-base::withCallingHandlers(...)
   15. |                   \-mask$eval_all_mutate(dots[[i]])
   16. +-rainette:::compute_members(level1, g1, level2, g2)
   17. | \-purrr::pmap(...)
   18. |   \-rainette:::.f(...)
   19. |     +-base::which(groups1[[level1]] == g1 & groups2[[level2]] == g2)
   20. |     \-base::Ops.factor(groups1[[level1]], g1)
   21. |       \-base::stop("level sets of factors are different")
   22. \-base::.handleSimpleError(...)
   23.   \-dplyr:::h(simpleError(msg, call))
  
  -- Skip (test_plots.R:4:1): (code run outside of `test_that()`) ----------------
  Reason: Skipping plots
  
  -- ERROR (test_rainette2.R:12:1): (code run outside of `test_that()`) ----------
  Error: Problem with `mutate()` input `members`.
  x level sets of factors are different
  i Input `members` is `compute_members(level1, g1, level2, g2)`.
  Backtrace:
       x
    1. +-rainette::rainette2(...) test_rainette2.R:12:0
    2. | +-progressr::with_progress(...)
    3. | \-rainette:::filter_crosstab(...)
    4. |   \-`%>%`(...)
    5. |     +-base::withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
    6. |     \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
    7. |       \-base::eval(quote(`_fseq`(`_lhs`)), env, env)
    8. |         \-rainette:::`_fseq`(`_lhs`)
    9. |           \-magrittr::freduce(value, `_function_list`)
   10. |             \-function_list[[i]](value)
   11. |               +-dplyr::mutate(...)
   12. |               \-dplyr:::mutate.data.frame(...)
   13. |                 \-dplyr:::mutate_cols(.data, ...)
   14. |                   +-base::withCallingHandlers(...)
   15. |                   \-mask$eval_all_mutate(dots[[i]])
   16. +-rainette:::compute_members(level1, g1, level2, g2)
   17. | \-purrr::pmap(...)
   18. |   \-rainette:::.f(...)
   19. |     +-base::which(groups1[[level1]] == g1 & groups2[[level2]] == g2)
   20. |     \-base::Ops.factor(groups1[[level1]], g1)
   21. |       \-base::stop("level sets of factors are different")
   22. \-base::.handleSimpleError(...)
   23.   \-dplyr:::h(simpleError(msg, call))
  
  -- Skipped tests  --------------------------------------------------------------
  * Skipping plots (1)
  
  == testthat results  ===========================================================
  ERROR (test_cutree.R:28:3): rainette2_complete_groups
  ERROR (test_rainette2.R:12:1): (code run outside of `test_that()`)
  
  [ FAIL 2 | WARN 0 | SKIP 1 | PASS 106 ]
  Error: Test failures
  In addition: Warning message:
  In for (i in seq_along(feat_cc)) { :
    closing unused connection 4 (doesnt/exist.txtt)
  Execution halted