Running ‘testthat.R’ [157s/277s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(epitopR)
  > 
  > test_check("epitopR")
  [ FAIL 1 | WARN 0 | SKIP 2 | PASS 0 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • empty test (2)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-core_mut.R:10:3): test core_mut  ────────────────────────────────
  <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-core_mut.R:10: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.   ├─dplyr:::tidyselect_fix_call(...)
   11.   │ └─base::withCallingHandlers(...)
   12.   └─tidyselect::eval_select(expr(c(...)), .data)
   13.     └─tidyselect:::eval_select_impl(...)
   14.       ├─tidyselect:::with_subscript_errors(...)
   15.       │ ├─base::tryCatch(...)
   16.       │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
   17.       │ │   └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
   18.       │ │     └─base (local) doTryCatch(return(expr), name, parentenv, handler)
   19.       │ └─tidyselect:::with_entraced_errors(expr)
   20.       │   └─rlang::try_fetch(...)
   21.       │     └─base::withCallingHandlers(...)
   22.       └─tidyselect:::vars_select_eval(...)
   23.         └─tidyselect:::walk_data_tree(expr, data_mask, context_mask, error_call)
   24.           └─tidyselect:::eval_c(expr, data_mask, context_mask)
   25.             └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   26.               └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   27.                 └─tidyselect:::eval_c(expr, data_mask, context_mask)
   28.                   └─tidyselect:::reduce_sels(node, data_mask, context_mask, init = init)
   29.                     └─tidyselect:::walk_data_tree(new, data_mask, context_mask)
   30.                       └─tidyselect:::as_indices_sel_impl(...)
   31.                         └─tidyselect:::as_indices_impl(x, vars, call = call, strict = strict)
   32.                           └─tidyselect:::chr_as_locations(x, vars, call = call)
   33.                             └─vctrs::vec_as_location(x, n = length(vars), names = vars)
   34.                               └─vctrs (local) `<fn>`()
   35.                                 └─vctrs:::stop_subscript_oob(...)
   36.                                   └─vctrs:::stop_subscript(...)
   37.                                     └─rlang::abort(...)
  
  [ FAIL 1 | WARN 0 | SKIP 2 | PASS 0 ]
  Error: Test failures
  Execution halted