Running 'testthat.R' [13s]
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. +-dplyr::filter(., !duplicated(members))
    6. +-dplyr::mutate(...)
    7. +-dplyr:::mutate.data.frame(...)
    8. | \-dplyr:::mutate_cols(.data, ...)
    9. |   +-base::withCallingHandlers(...)
   10. |   \-mask$eval_all_mutate(dots[[i]])
   11. +-rainette:::compute_members(level1, g1, level2, g2)
   12. | \-purrr::pmap(...)
   13. |   \-rainette:::.f(...)
   14. |     +-base::which(groups1[[level1]] == g1 & groups2[[level2]] == g2)
   15. |     \-base::Ops.factor(groups1[[level1]], g1)
   16. |       \-base::stop("level sets of factors are different")
   17. \-base::.handleSimpleError(...)
   18.   \-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. +-dplyr::filter(., !duplicated(members))
    6. +-dplyr::mutate(...)
    7. +-dplyr:::mutate.data.frame(...)
    8. | \-dplyr:::mutate_cols(.data, ...)
    9. |   +-base::withCallingHandlers(...)
   10. |   \-mask$eval_all_mutate(dots[[i]])
   11. +-rainette:::compute_members(level1, g1, level2, g2)
   12. | \-purrr::pmap(...)
   13. |   \-rainette:::.f(...)
   14. |     +-base::which(groups1[[level1]] == g1 & groups2[[level2]] == g2)
   15. |     \-base::Ops.factor(groups1[[level1]], g1)
   16. |       \-base::stop("level sets of factors are different")
   17. \-base::.handleSimpleError(...)
   18.   \-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_len(n)) { :
    closing unused connection 4 (doesnt/exist.txtt)
  Execution halted