Running ‘testthat.R’ [81s/88s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(SwimmeR)
  > 
  > test_check("SwimmeR")
  [ FAIL 16 | WARN 3 | SKIP 49 | PASS 18 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (49)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-format_splits.R:6'): cumulative splits 1500 ────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─SwimmeR::swim_parse(read_results(file), splits = TRUE) at test-format_splits.R:6:2
    2. │ └─SwimmeR:::swim_parse_hytek(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─... %>% ...
    6. ├─dplyr::select(...)
    7. ├─dplyr::na_if(., "NA")
    8. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
    9. ├─dplyr::mutate(...)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::mutate(...)
   14. ├─dplyr::na_if(., "")
   15. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-omega.R:5'): Men 400 IM prelims ────────────────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─... %>% head(2) at test-omega.R:5:2
    2. ├─utils::head(., 2)
    3. ├─SwimmeR::swim_parse(., splits = TRUE, relay_swimmers = TRUE)
    4. │ └─SwimmeR:::swim_parse_omega(...)
    5. │   ├─base::suppressWarnings(...)
    6. │   │ └─base::withCallingHandlers(...)
    7. │   └─... %>% ...
    8. ├─dplyr::select(...)
    9. ├─dplyr::na_if(., "NA")
   10. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::mutate(...)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::mutate(...)
   16. ├─dplyr::mutate(...)
   17. ├─dplyr::mutate(...)
   18. ├─dplyr::na_if(., "")
   19. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   20. └─vctrs (local) `<fn>`()
   21.   └─vctrs::vec_default_cast(...)
   22.     ├─base::withRestarts(...)
   23.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   24.     │   └─base (local) doWithOneRestart(return(expr), restart)
   25.     └─vctrs::stop_incompatible_cast(...)
   26.       └─vctrs::stop_incompatible_type(...)
   27.         └─vctrs:::stop_incompatible(...)
   28.           └─vctrs:::stop_vctrs(...)
   29.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-omega.R:194'): Women 400m finals ───────────────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─... %>% head(2) at test-omega.R:194:2
    2. ├─utils::head(., 2)
    3. ├─SwimmeR::swim_parse(., splits = TRUE, relay_swimmers = TRUE)
    4. │ └─SwimmeR:::swim_parse_omega(...)
    5. │   ├─base::suppressWarnings(...)
    6. │   │ └─base::withCallingHandlers(...)
    7. │   └─... %>% ...
    8. ├─dplyr::select(...)
    9. ├─dplyr::na_if(., "NA")
   10. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::mutate(...)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::mutate(...)
   16. ├─dplyr::mutate(...)
   17. ├─dplyr::mutate(...)
   18. ├─dplyr::na_if(., "")
   19. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   20. └─vctrs (local) `<fn>`()
   21.   └─vctrs::vec_default_cast(...)
   22.     ├─base::withRestarts(...)
   23.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   24.     │   └─base (local) doWithOneRestart(return(expr), restart)
   25.     └─vctrs::stop_incompatible_cast(...)
   26.       └─vctrs::stop_incompatible_type(...)
   27.         └─vctrs:::stop_incompatible(...)
   28.           └─vctrs:::stop_vctrs(...)
   29.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-omega.R:230'): 100 br swim off no heat ─────────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─file %>% read_results() %>% swim_parse(splits = TRUE) at test-omega.R:230:2
    2. ├─SwimmeR::swim_parse(., splits = TRUE)
    3. │ └─SwimmeR:::swim_parse_omega(...)
    4. │   ├─base::suppressWarnings(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─... %>% ...
    7. ├─dplyr::select(...)
    8. ├─dplyr::na_if(., "NA")
    9. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::mutate(...)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::mutate(...)
   16. ├─dplyr::mutate(...)
   17. ├─dplyr::na_if(., "")
   18. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   19. └─vctrs (local) `<fn>`()
   20.   └─vctrs::vec_default_cast(...)
   21.     ├─base::withRestarts(...)
   22.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   23.     │   └─base (local) doWithOneRestart(return(expr), restart)
   24.     └─vctrs::stop_incompatible_cast(...)
   25.       └─vctrs::stop_incompatible_type(...)
   26.         └─vctrs:::stop_incompatible(...)
   27.           └─vctrs:::stop_vctrs(...)
   28.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-omega.R:259'): wave 1 200 fly ──────────────────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─... %>% head(2) at test-omega.R:259:2
    2. ├─utils::head(., 2)
    3. ├─SwimmeR::swim_parse(., splits = TRUE)
    4. │ └─SwimmeR:::swim_parse_omega(...)
    5. │   ├─base::suppressWarnings(...)
    6. │   │ └─base::withCallingHandlers(...)
    7. │   └─... %>% ...
    8. ├─dplyr::select(...)
    9. ├─dplyr::na_if(., "NA")
   10. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::mutate(...)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::mutate(...)
   16. ├─dplyr::mutate(...)
   17. ├─dplyr::mutate(...)
   18. ├─dplyr::na_if(., "")
   19. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   20. └─vctrs (local) `<fn>`()
   21.   └─vctrs::vec_default_cast(...)
   22.     ├─base::withRestarts(...)
   23.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   24.     │   └─base (local) doWithOneRestart(return(expr), restart)
   25.     └─vctrs::stop_incompatible_cast(...)
   26.       └─vctrs::stop_incompatible_type(...)
   27.         └─vctrs:::stop_incompatible(...)
   28.           └─vctrs:::stop_vctrs(...)
   29.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-omega.R:290'): wave 1 1500m ────────────────────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─... %>% filter(Name != "NARVID Jake") at test-omega.R:290:2
    2. ├─dplyr::filter(., Name != "NARVID Jake")
    3. ├─SwimmeR::swim_parse(., splits = TRUE)
    4. │ └─SwimmeR:::swim_parse_omega(...)
    5. │   ├─base::suppressWarnings(...)
    6. │   │ └─base::withCallingHandlers(...)
    7. │   └─... %>% ...
    8. ├─dplyr::select(...)
    9. ├─dplyr::na_if(., "NA")
   10. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   11. ├─dplyr::na_if(., "")
   12. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   13. └─vctrs (local) `<fn>`()
   14.   └─vctrs::vec_default_cast(...)
   15.     ├─base::withRestarts(...)
   16.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   17.     │   └─base (local) doWithOneRestart(return(expr), restart)
   18.     └─vctrs::stop_incompatible_cast(...)
   19.       └─vctrs::stop_incompatible_type(...)
   20.         └─vctrs:::stop_incompatible(...)
   21.           └─vctrs:::stop_vctrs(...)
   22.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-relay_swimmers.R:5'): relay swimmers one line works ────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "NA")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─SwimmeR::swim_parse(...) at test-relay_swimmers.R:5:2
    2. │ └─SwimmeR:::swim_parse_hytek(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─... %>% ...
    6. ├─dplyr::select(...)
    7. ├─dplyr::na_if(., "NA")
    8. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
    9. └─vctrs (local) `<fn>`()
   10.   └─vctrs::vec_default_cast(...)
   11.     ├─base::withRestarts(...)
   12.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   13.     │   └─base (local) doWithOneRestart(return(expr), restart)
   14.     └─vctrs::stop_incompatible_cast(...)
   15.       └─vctrs::stop_incompatible_type(...)
   16.         └─vctrs:::stop_incompatible(...)
   17.           └─vctrs:::stop_vctrs(...)
   18.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-results_score.R:6'): prelims_finals works ──────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─SwimmeR::swim_parse(...) at test-results_score.R:6:2
    2. │ └─SwimmeR:::swim_parse_hytek(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─... %>% ...
    6. ├─dplyr::select(...)
    7. ├─dplyr::na_if(., "NA")
    8. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
    9. ├─dplyr::mutate(...)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::mutate(...)
   14. ├─dplyr::na_if(., "")
   15. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-splits.R:5'): Singapore results, splits in parenthesis ─────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "NA")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─... %>% splits_reform() at test-splits.R:5:2
    2. ├─SwimmeR:::splits_reform(.)
    3. │ └─... %>% ...
    4. ├─dplyr::mutate(...)
    5. ├─dplyr::mutate(...)
    6. ├─dplyr::rowwise(.)
    7. ├─dplyr::mutate(., dplyr::across(dplyr::starts_with("Split"), ~sec_format(.x)))
    8. ├─dplyr::mutate(., F_sec = sec_format(Finals_Time))
    9. ├─dplyr::filter(...)
   10. ├─SwimmeR::swim_parse(...)
   11. │ └─SwimmeR:::swim_parse_hytek(...)
   12. │   ├─base::suppressWarnings(...)
   13. │   │ └─base::withCallingHandlers(...)
   14. │   └─... %>% ...
   15. ├─dplyr::select(...)
   16. ├─dplyr::na_if(., "NA")
   17. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   18. └─vctrs (local) `<fn>`()
   19.   └─vctrs::vec_default_cast(...)
   20.     ├─base::withRestarts(...)
   21.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   22.     │   └─base (local) doWithOneRestart(return(expr), restart)
   23.     └─vctrs::stop_incompatible_cast(...)
   24.       └─vctrs::stop_incompatible_type(...)
   25.         └─vctrs:::stop_incompatible(...)
   26.           └─vctrs:::stop_vctrs(...)
   27.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-splits.R:71'): USA Swimming results, splits don't have parenthesis, some splits longer than 59.99 ──
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─... %>% splits_reform() at test-splits.R:71:2
    2. ├─SwimmeR:::splits_reform(.)
    3. │ └─... %>% ...
    4. ├─dplyr::mutate(...)
    5. ├─dplyr::mutate(...)
    6. ├─dplyr::rowwise(.)
    7. ├─dplyr::mutate(., dplyr::across(dplyr::starts_with("Split"), ~sec_format(.x)))
    8. ├─dplyr::mutate(., F_sec = sec_format(Finals_Time))
    9. ├─dplyr::filter(...)
   10. ├─SwimmeR::swim_parse(., splits = TRUE)
   11. │ └─SwimmeR:::swim_parse_hytek(...)
   12. │   ├─base::suppressWarnings(...)
   13. │   │ └─base::withCallingHandlers(...)
   14. │   └─... %>% ...
   15. ├─dplyr::select(...)
   16. ├─dplyr::na_if(., "NA")
   17. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   18. ├─dplyr::mutate(...)
   19. ├─dplyr::mutate(...)
   20. ├─dplyr::mutate(...)
   21. ├─dplyr::mutate(...)
   22. ├─dplyr::mutate(...)
   23. ├─dplyr::na_if(., "")
   24. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   25. └─vctrs (local) `<fn>`()
   26.   └─vctrs::vec_default_cast(...)
   27.     ├─base::withRestarts(...)
   28.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   29.     │   └─base (local) doWithOneRestart(return(expr), restart)
   30.     └─vctrs::stop_incompatible_cast(...)
   31.       └─vctrs::stop_incompatible_type(...)
   32.         └─vctrs:::stop_incompatible(...)
   33.           └─vctrs:::stop_vctrs(...)
   34.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-swim_parse.R:58'): swim_parse works ────────────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "NA")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─SwimmeR::swim_parse(read_results(file)) at test-swim_parse.R:58:2
    2. │ └─SwimmeR:::swim_parse_hytek(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─... %>% ...
    6. ├─dplyr::select(...)
    7. ├─dplyr::na_if(., "NA")
    8. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
    9. └─vctrs (local) `<fn>`()
   10.   └─vctrs::vec_default_cast(...)
   11.     ├─base::withRestarts(...)
   12.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   13.     │   └─base (local) doWithOneRestart(return(expr), restart)
   14.     └─vctrs::stop_incompatible_cast(...)
   15.       └─vctrs::stop_incompatible_type(...)
   16.         └─vctrs:::stop_incompatible(...)
   17.           └─vctrs:::stop_vctrs(...)
   18.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-swim_parse.R:72'): swim_parse works para ───────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─SwimmeR::swim_parse(read_results(file)) at test-swim_parse.R:72:2
    2. │ └─SwimmeR:::swim_parse_hytek(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─... %>% ...
    6. ├─dplyr::select(...)
    7. ├─dplyr::na_if(., "NA")
    8. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
    9. ├─dplyr::mutate(...)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::mutate(...)
   14. ├─dplyr::na_if(., "")
   15. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-swim_parse.R:114'): swim_parse_2 works 2 ───────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "NA")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─SwimmeR::swim_parse(read_results(file)) at test-swim_parse.R:114:2
    2. │ └─SwimmeR:::swim_parse_hytek(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─... %>% ...
    6. ├─dplyr::select(...)
    7. ├─dplyr::na_if(., "NA")
    8. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
    9. └─vctrs (local) `<fn>`()
   10.   └─vctrs::vec_default_cast(...)
   11.     ├─base::withRestarts(...)
   12.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   13.     │   └─base (local) doWithOneRestart(return(expr), restart)
   14.     └─vctrs::stop_incompatible_cast(...)
   15.       └─vctrs::stop_incompatible_type(...)
   16.         └─vctrs:::stop_incompatible(...)
   17.           └─vctrs:::stop_vctrs(...)
   18.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-swim_parse.R:145'): swim_parse works USMS ──────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "NA")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─testthat::expect_match(...) at test-swim_parse.R:145:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─SwimmeR::swim_parse(read_results(file))
    5. │ └─SwimmeR:::swim_parse_hytek(...)
    6. │   ├─base::suppressWarnings(...)
    7. │   │ └─base::withCallingHandlers(...)
    8. │   └─... %>% ...
    9. ├─dplyr::select(...)
   10. ├─dplyr::na_if(., "NA")
   11. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   12. └─vctrs (local) `<fn>`()
   13.   └─vctrs::vec_default_cast(...)
   14.     ├─base::withRestarts(...)
   15.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   16.     │   └─base (local) doWithOneRestart(return(expr), restart)
   17.     └─vctrs::stop_incompatible_cast(...)
   18.       └─vctrs::stop_incompatible_type(...)
   19.         └─vctrs:::stop_incompatible(...)
   20.           └─vctrs:::stop_vctrs(...)
   21.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-swim_parse.R:155'): swim_parse works USA ───────────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─file %>% read_results() %>% swim_parse() at test-swim_parse.R:155:2
    2. ├─SwimmeR::swim_parse(.)
    3. │ └─SwimmeR:::swim_parse_hytek(...)
    4. │   ├─base::suppressWarnings(...)
    5. │   │ └─base::withCallingHandlers(...)
    6. │   └─... %>% ...
    7. ├─dplyr::select(...)
    8. ├─dplyr::na_if(., "NA")
    9. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::mutate(...)
   14. ├─dplyr::mutate(...)
   15. ├─dplyr::na_if(., "")
   16. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   17. └─vctrs (local) `<fn>`()
   18.   └─vctrs::vec_default_cast(...)
   19.     ├─base::withRestarts(...)
   20.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   21.     │   └─base (local) doWithOneRestart(return(expr), restart)
   22.     └─vctrs::stop_incompatible_cast(...)
   23.       └─vctrs::stop_incompatible_type(...)
   24.         └─vctrs:::stop_incompatible(...)
   25.           └─vctrs:::stop_vctrs(...)
   26.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  ── Error ('test-swim_parse.R:168'): swim_parse works Brit ID ───────────────────
  <vctrs_error_cast/vctrs_error_incompatible_type/vctrs_error_incompatible/vctrs_error/rlang_error/error/condition>
  Error in `dplyr::na_if(., "")`: Can't convert `y` <character> to match type of `x` <data.frame>.
  Backtrace:
       ▆
    1. ├─SwimmeR::swim_parse(read_results(file), splits = TRUE, split_length = 50) at test-swim_parse.R:168:2
    2. │ └─SwimmeR:::swim_parse_hytek(...)
    3. │   ├─base::suppressWarnings(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─... %>% ...
    6. ├─dplyr::select(...)
    7. ├─dplyr::na_if(., "NA")
    8. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
    9. ├─dplyr::mutate(...)
   10. ├─dplyr::mutate(...)
   11. ├─dplyr::mutate(...)
   12. ├─dplyr::mutate(...)
   13. ├─dplyr::mutate(...)
   14. ├─dplyr::na_if(., "")
   15. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
   16. └─vctrs (local) `<fn>`()
   17.   └─vctrs::vec_default_cast(...)
   18.     ├─base::withRestarts(...)
   19.     │ └─base (local) withOneRestart(expr, restarts[[1L]])
   20.     │   └─base (local) doWithOneRestart(return(expr), restart)
   21.     └─vctrs::stop_incompatible_cast(...)
   22.       └─vctrs::stop_incompatible_type(...)
   23.         └─vctrs:::stop_incompatible(...)
   24.           └─vctrs:::stop_vctrs(...)
   25.             └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = vctrs_error_call(call))
  
  [ FAIL 16 | WARN 3 | SKIP 49 | PASS 18 ]
  Error: Test failures
  Execution halted