Running 'testthat.R' [87s/100s]
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.
  x Column `BF` doesn't exist.
  Backtrace:
       x
    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.
  x Column `BF` doesn't exist.
  Backtrace:
       x
    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