Running ‘testthat.R’ [233s/273s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(epitopR)
  > 
  > test_check("epitopR")
  [ FAIL 1 | WARN 30 | SKIP 2 | PASS 0 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • empty test (2)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-mhcII_hu.R:2:3'): test mhcII_hu prediction works ───────────────
  <vctrs_error_subscript_oob/vctrs_error_subscript/rlang_error/error/condition>
  Error in `select(., -c(id, seq_num))`: Can't subset columns that don't exist.
  x Column `id` doesn't exist.
  Backtrace:
       ▆
    1. ├─epitopR::mhcII_hu(...) at test-mhcII_hu.R:2:2
    2. │ └─epitopR:::comb_pred_tbl(...)
    3. │   └─... %>% ...
    4. ├─dplyr::filter(...)
    5. ├─dplyr::mutate(...)
    6. ├─dplyr::mutate(...)
    7. ├─dplyr::filter(., ic50 != "-")
    8. ├─dplyr::select(., -c(id, seq_num))
    9. ├─dplyr:::select.data.frame(., -c(id, seq_num))
   10. │ └─tidyselect::eval_select(expr(c(...)), data = .data, error_call = error_call)
   11. │   └─tidyselect:::eval_select_impl(...)
   12. │     ├─tidyselect:::with_subscript_errors(...)
   13. │     │ └─rlang::try_fetch(...)
   14. │     │   └─base::withCallingHandlers(...)
   15. │     └─tidyselect:::vars_select_eval(...)
   16. │       └─tidyselect:::walk_data_tree(expr, data_mask, context_mask)
   17. │         └─tidyselect:::eval_c(expr, data_mask, context_mask)
   18. │           └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   19. │             └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   20. │               └─tidyselect:::eval_c(expr, data_mask, context_mask)
   21. │                 └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   22. │                   └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   23. │                     └─tidyselect:::as_indices_sel_impl(...)
   24. │                       └─tidyselect:::as_indices_impl(...)
   25. │                         └─tidyselect:::chr_as_locations(x, vars, call = call, arg = arg)
   26. │                           └─vctrs::vec_as_location(...)
   27. └─vctrs (local) `<fn>`()
   28.   └─vctrs:::stop_subscript_oob(...)
   29.     └─vctrs:::stop_subscript(...)
   30.       └─rlang::abort(...)
  
  [ FAIL 1 | WARN 30 | SKIP 2 | PASS 0 ]
  Error: Test failures
  Execution halted