Running ‘testthat.R’ [57s/74s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(multifear)
  > 
  > test_check("multifear")
  [ FAIL 6 | WARN 4 | SKIP 0 | PASS 11 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test.output.R:24:3'): t_test_mf works ───────────────────────────────
  Error in `unclass(x)[i, , drop = FALSE]`: (subscript) logical subscript too long
  Backtrace:
       ▆
    1. ├─testthat::expect_known_output(...) at test.output.R:24:3
    2. │ ├─base::append(act, eval_with_output(object, print = print, width = width))
    3. │ └─testthat:::eval_with_output(object, print = print, width = width)
    4. │   ├─withr::with_output_sink(path, withVisible(code))
    5. │   │ └─base::force(code)
    6. │   └─base::withVisible(code)
    7. ├─multifear::t_test_mf(cs1, cs2, subj = subj, data = example_data)
    8. │ └─... %>% ...
    9. ├─dplyr::group_map(...)
   10. ├─dplyr:::group_map.data.frame(...)
   11. │ └─dplyr:::map2(chunks, group_keys, .f, ...)
   12. │   └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
   13. │     └─multifear (local) `<rlng_lm_>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   14. │       ├─... %>% broom::tidy()
   15. │       ├─stats::t.test(...)
   16. │       └─stats:::t.test.default(...)
   17. │         ├─x[xok]
   18. │         └─stats:::`[.Pair`(x, xok)
   19. └─broom::tidy(.)
  ── Error ('test.output.R:81:3'): universe works ────────────────────────────────
  Error in `unclass(x)[i, , drop = FALSE]`: (subscript) logical subscript too long
  Backtrace:
       ▆
    1. ├─testthat::expect_known_output(...) at test.output.R:81:3
    2. │ ├─base::append(act, eval_with_output(object, print = print, width = width))
    3. │ └─testthat:::eval_with_output(object, print = print, width = width)
    4. │   ├─withr::with_output_sink(path, withVisible(code))
    5. │   │ └─base::force(code)
    6. │   └─base::withVisible(code)
    7. ├─multifear::universe_cs(...)
    8. │ └─multifear::t_test_mf(...)
    9. │   └─... %>% ...
   10. ├─dplyr::group_map(...)
   11. ├─dplyr:::group_map.data.frame(...)
   12. │ └─dplyr:::map2(chunks, group_keys, .f, ...)
   13. │   └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
   14. │     └─multifear (local) `<rlng_lm_>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   15. │       ├─... %>% broom::tidy()
   16. │       ├─stats::t.test(...)
   17. │       └─stats:::t.test.default(...)
   18. │         ├─x[xok]
   19. │         └─stats:::`[.Pair`(x, xok)
   20. └─broom::tidy(.)
  ── Error ('test.output.R:85:3'): universe works mixed ──────────────────────────
  Error in `unclass(x)[i, , drop = FALSE]`: (subscript) logical subscript too long
  Backtrace:
       ▆
    1. ├─testthat::expect_known_output(...) at test.output.R:85:3
    2. │ ├─base::append(act, eval_with_output(object, print = print, width = width))
    3. │ └─testthat:::eval_with_output(object, print = print, width = width)
    4. │   ├─withr::with_output_sink(path, withVisible(code))
    5. │   │ └─base::force(code)
    6. │   └─base::withVisible(code)
    7. ├─multifear::universe_cs(...)
    8. │ └─multifear::t_test_mf(...)
    9. │   └─... %>% ...
   10. ├─dplyr::group_map(...)
   11. ├─dplyr:::group_map.data.frame(...)
   12. │ └─dplyr:::map2(chunks, group_keys, .f, ...)
   13. │   └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
   14. │     └─multifear (local) `<rlng_lm_>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   15. │       ├─... %>% broom::tidy()
   16. │       ├─stats::t.test(...)
   17. │       └─stats:::t.test.default(...)
   18. │         ├─x[xok]
   19. │         └─stats:::`[.Pair`(x, xok)
   20. └─broom::tidy(.)
  ── Error ('test.output.R:89:3'): universe works with groups ────────────────────
  Error in `unclass(x)[i, , drop = FALSE]`: (subscript) logical subscript too long
  Backtrace:
       ▆
    1. ├─testthat::expect_known_output(...) at test.output.R:89:3
    2. │ ├─base::append(act, eval_with_output(object, print = print, width = width))
    3. │ └─testthat:::eval_with_output(object, print = print, width = width)
    4. │   ├─withr::with_output_sink(path, withVisible(code))
    5. │   │ └─base::force(code)
    6. │   └─base::withVisible(code)
    7. ├─multifear::universe_cs(...)
    8. │ └─multifear::t_test_mf(...)
    9. │   └─... %>% ...
   10. ├─dplyr::group_map(...)
   11. ├─dplyr:::group_map.data.frame(...)
   12. │ └─dplyr:::map2(chunks, group_keys, .f, ...)
   13. │   └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
   14. │     └─multifear (local) `<rlng_lm_>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   15. │       ├─... %>% broom::tidy()
   16. │       ├─stats::t.test(...)
   17. │       └─stats:::t.test.default(...)
   18. │         ├─x[xok]
   19. │         └─stats:::`[.Pair`(x, xok)
   20. └─broom::tidy(.)
  ── Error ('test.output.R:95:3'): multiverse works ──────────────────────────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `map2(.x, .y, .f, ...)`: ℹ In index: 1.
  ℹ With name: full_data.
  Caused by error in `unclass(x)[i, , drop = FALSE]`:
  ! (subscript) logical subscript too long
  Backtrace:
       ▆
    1. ├─testthat::expect_known_output(...) at test.output.R:95:3
    2. │ ├─base::append(act, eval_with_output(object, print = print, width = width))
    3. │ └─testthat:::eval_with_output(object, print = print, width = width)
    4. │   ├─withr::with_output_sink(path, withVisible(code))
    5. │   │ └─base::force(code)
    6. │   └─base::withVisible(code)
    7. ├─multifear::multiverse_cs(...)
    8. │ └─purrr::map2_dfr(...)
    9. │   └─purrr::map2(.x, .y, .f, ...)
   10. │     └─purrr:::map2_("list", .x, .y, .f, ..., .progress = .progress)
   11. │       ├─purrr:::with_indexed_errors(...)
   12. │       │ └─base::withCallingHandlers(...)
   13. │       ├─purrr:::call_with_cleanup(...)
   14. │       └─multifear (local) .f(.x[[i]], .y[[i]], ...)
   15. │         └─multifear::universe_cs(...)
   16. │           └─multifear::t_test_mf(...)
   17. │             └─... %>% ...
   18. ├─dplyr::group_map(...)
   19. ├─dplyr:::group_map.data.frame(...)
   20. │ └─dplyr:::map2(chunks, group_keys, .f, ...)
   21. │   └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
   22. │     └─multifear (local) `<rlng_lm_>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   23. │       ├─... %>% broom::tidy()
   24. │       ├─stats::t.test(...)
   25. │       └─stats:::t.test.default(...)
   26. │         ├─x[xok]
   27. │         └─stats:::`[.Pair`(x, xok)
   28. ├─broom::tidy(.)
   29. └─base::.handleSimpleError(...)
   30.   └─purrr (local) h(simpleError(msg, call))
   31.     └─cli::cli_abort(...)
   32.       └─rlang::abort(...)
  ── Error ('test.output.R:99:3'): multiverse works with groups ──────────────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `map2(.x, .y, .f, ...)`: ℹ In index: 1.
  ℹ With name: full_data.
  Caused by error in `unclass(x)[i, , drop = FALSE]`:
  ! (subscript) logical subscript too long
  Backtrace:
       ▆
    1. ├─testthat::expect_known_output(...) at test.output.R:99:3
    2. │ ├─base::append(act, eval_with_output(object, print = print, width = width))
    3. │ └─testthat:::eval_with_output(object, print = print, width = width)
    4. │   ├─withr::with_output_sink(path, withVisible(code))
    5. │   │ └─base::force(code)
    6. │   └─base::withVisible(code)
    7. ├─multifear::multiverse_cs(...)
    8. │ └─purrr::map2_dfr(...)
    9. │   └─purrr::map2(.x, .y, .f, ...)
   10. │     └─purrr:::map2_("list", .x, .y, .f, ..., .progress = .progress)
   11. │       ├─purrr:::with_indexed_errors(...)
   12. │       │ └─base::withCallingHandlers(...)
   13. │       ├─purrr:::call_with_cleanup(...)
   14. │       └─multifear (local) .f(.x[[i]], .y[[i]], ...)
   15. │         └─multifear::universe_cs(...)
   16. │           └─multifear::t_test_mf(...)
   17. │             └─... %>% ...
   18. ├─dplyr::group_map(...)
   19. ├─dplyr:::group_map.data.frame(...)
   20. │ └─dplyr:::map2(chunks, group_keys, .f, ...)
   21. │   └─base::mapply(.f, .x, .y, MoreArgs = list(...), SIMPLIFY = FALSE)
   22. │     └─multifear (local) `<rlng_lm_>`(dots[[1L]][[1L]], dots[[2L]][[1L]])
   23. │       ├─... %>% broom::tidy()
   24. │       ├─stats::t.test(...)
   25. │       └─stats:::t.test.default(...)
   26. │         ├─x[xok]
   27. │         └─stats:::`[.Pair`(x, xok)
   28. ├─broom::tidy(.)
   29. └─base::.handleSimpleError(...)
   30.   └─purrr (local) h(simpleError(msg, call))
   31.     └─cli::cli_abort(...)
   32.       └─rlang::abort(...)
  
  [ FAIL 6 | WARN 4 | SKIP 0 | PASS 11 ]
  Error: Test failures
  Execution halted