Running ‘testthat.R’ [63s/93s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(multifear)
  > 
  > test_check("multifear")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test.output.R:47:3): rm_banova_mf works ──────────────────────────────
  Error: Can't subset columns that don't exist.
  ✖ Column `BF` doesn't exist.
  Backtrace:
       █
    1. ├─testthat::expect_known_output(...) test.output.R:47:2
    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(temp, withVisible(code))
    5. │   │ └─base::force(code)
    6. │   └─base::withVisible(code)
    7. ├─multifear::rm_banova_mf(cs1, cs2, subj = subj, data = example_data)
    8. │ └─`%>%`(...)
    9. ├─dplyr::select(., BF)
   10. └─dplyr:::select.data.frame(., BF)
   11.   └─tidyselect::eval_select(expr(c(...)), .data)
   12.     └─tidyselect:::eval_select_impl(...)
   13.       ├─tidyselect:::with_subscript_errors(...)
   14.       │ ├─base::tryCatch(...)
   15.       │ │ └─base:::tryCatchList(expr, classes, parentenv, handlers)
   16.       │ │   └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   17.       │ │     └─base:::doTryCatch(return(expr), name, parentenv, handler)
   18.       │ └─tidyselect:::instrument_base_errors(expr)
   19.       │   └─base::withCallingHandlers(...)
   20.       └─tidyselect:::vars_select_eval(...)
   21.         └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   22.           └─tidyselect:::eval_c(expr, data_mask, context_mask)
   23.             └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   24.               └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   25.                 └─tidyselect:::as_indices_sel_impl(...)
   26.                   └─tidyselect:::as_indices_impl(x, vars, strict = strict)
   27.                     └─tidyselect:::chr_as_locations(x, vars)
   28.                       └─vctrs::vec_as_location(x, n = length(vars), names = vars)
   29.                         └─(function () ...
   30.                           └─vctrs:::stop_subscript_oob(...)
   31.                             └─vctrs:::stop_subscript(...)
  ── Error (test.output.R:51:3): rm_banova_mf for groups works ───────────────────
  Error: Can't subset columns that don't exist.
  ✖ Column `BF` doesn't exist.
  Backtrace:
       █
    1. ├─testthat::expect_known_output(...) test.output.R:51:2
    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(temp, withVisible(code))
    5. │   │ └─base::force(code)
    6. │   └─base::withVisible(code)
    7. ├─multifear::rm_banova_mf(...)
    8. │ └─`%>%`(...)
    9. ├─dplyr::select(., BF)
   10. └─dplyr:::select.data.frame(., BF)
   11.   └─tidyselect::eval_select(expr(c(...)), .data)
   12.     └─tidyselect:::eval_select_impl(...)
   13.       ├─tidyselect:::with_subscript_errors(...)
   14.       │ ├─base::tryCatch(...)
   15.       │ │ └─base:::tryCatchList(expr, classes, parentenv, handlers)
   16.       │ │   └─base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   17.       │ │     └─base:::doTryCatch(return(expr), name, parentenv, handler)
   18.       │ └─tidyselect:::instrument_base_errors(expr)
   19.       │   └─base::withCallingHandlers(...)
   20.       └─tidyselect:::vars_select_eval(...)
   21.         └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   22.           └─tidyselect:::eval_c(expr, data_mask, context_mask)
   23.             └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   24.               └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   25.                 └─tidyselect:::as_indices_sel_impl(...)
   26.                   └─tidyselect:::as_indices_impl(x, vars, strict = strict)
   27.                     └─tidyselect:::chr_as_locations(x, vars)
   28.                       └─vctrs::vec_as_location(x, n = length(vars), names = vars)
   29.                         └─(function () ...
   30.                           └─vctrs:::stop_subscript_oob(...)
   31.                             └─vctrs:::stop_subscript(...)
  
  [ FAIL 2 | WARN 1 | SKIP 0 | PASS 15 ]
  Error: Test failures
  Execution halted