Running 'testthat.R' [61s]
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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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:
       x
    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