Last updated on 2023-03-01 08:55:02 CET.
Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
---|---|---|---|---|---|---|
r-devel-linux-x86_64-debian-clang | 0.13.0 | 14.88 | 158.20 | 173.08 | ERROR | |
r-devel-linux-x86_64-debian-gcc | 0.13.0 | 12.81 | 116.01 | 128.82 | ERROR | |
r-devel-linux-x86_64-fedora-clang | 0.13.0 | 211.12 | ERROR | |||
r-devel-linux-x86_64-fedora-gcc | 0.13.0 | 228.49 | ERROR | |||
r-devel-windows-x86_64 | 0.13.0 | 58.00 | 200.00 | 258.00 | ERROR | |
r-patched-linux-x86_64 | 0.13.0 | 15.76 | 152.02 | 167.78 | ERROR | |
r-release-linux-x86_64 | 0.13.0 | 13.58 | 151.62 | 165.20 | ERROR | |
r-release-macos-arm64 | 0.13.0 | 60.00 | OK | |||
r-release-macos-x86_64 | 0.13.0 | 97.00 | OK | |||
r-release-windows-x86_64 | 0.13.0 | 54.00 | 228.00 | 282.00 | ERROR | |
r-oldrel-macos-arm64 | 0.13.0 | 71.00 | OK | |||
r-oldrel-macos-x86_64 | 0.13.0 | 91.00 | OK | |||
r-oldrel-windows-ix86+x86_64 | 0.13.0 | 20.00 | 20.00 | ERROR |
Version: 0.13.0
Check: package subdirectories
Result: NOTE
Problems with news in ‘NEWS.md’:
Cannot extract version info from the following section titles:
CRAN release
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64
Version: 0.13.0
Check: examples
Result: ERROR
Running examples in ‘SwimmeR-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: name_reorder
> ### Title: Orders all names as "Firstname Lastname"
> ### Aliases: name_reorder
>
> ### ** Examples
>
> name_reorder(
+ data.frame(
+ Name = c("King, Lilly",
+ "Lilly King",
+ NA,
+ "Richards Ross, Sanya",
+ "Phelps, Michael F")),
+ verbose = TRUE
+ )
Error in `dplyr::na_if()`:
! Can't convert `y` <character> to match type of `x` <data.frame>.
Backtrace:
▆
1. ├─SwimmeR::name_reorder(...)
2. │ └─... %>% ...
3. ├─dplyr::mutate(...)
4. ├─dplyr::na_if(., "")
5. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
6. ├─dplyr::mutate(...)
7. ├─dplyr::na_if(., "")
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))
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.13.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [64s/79s]
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
Flavor: r-devel-linux-x86_64-debian-clang
Version: 0.13.0
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
...
--- re-building ‘SwimmeR.Rmd’ using rmarkdown
Quitting from lines 60-66 (SwimmeR.Rmd)
Error: processing vignette ‘SwimmeR.Rmd’ failed with diagnostics:
Can't convert `y` <character> to match type of `x` <data.frame>.
--- failed re-building ‘SwimmeR.Rmd’
SUMMARY: processing the following file failed:
‘SwimmeR.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-patched-linux-x86_64, r-release-linux-x86_64
Version: 0.13.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [47s/76s]
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
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 0.13.0
Check: examples
Result: ERROR
Running examples in ‘SwimmeR-Ex.R’ failed
The error most likely occurred in:
> ### Name: name_reorder
> ### Title: Orders all names as "Firstname Lastname"
> ### Aliases: name_reorder
>
> ### ** Examples
>
> name_reorder(
+ data.frame(
+ Name = c("King, Lilly",
+ "Lilly King",
+ NA,
+ "Richards Ross, Sanya",
+ "Phelps, Michael F")),
+ verbose = TRUE
+ )
Error in `dplyr::na_if()`:
! Can't convert `y` <character> to match type of `x` <data.frame>.
Backtrace:
▆
1. ├─SwimmeR::name_reorder(...)
2. │ └─... %>% ...
3. ├─dplyr::mutate(...)
4. ├─dplyr::na_if(., "")
5. │ └─vctrs::vec_cast(x = y, to = x, x_arg = "y", to_arg = "x")
6. ├─dplyr::mutate(...)
7. ├─dplyr::na_if(., "")
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))
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64, r-release-windows-x86_64
Version: 0.13.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [79s/98s]
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
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 0.13.0
Check: re-building of vignette outputs
Result: ERROR
Error(s) in re-building vignettes:
--- re-building ‘SwimmeR.Rmd’ using rmarkdown
Quitting from lines 60-66 (SwimmeR.Rmd)
Error: processing vignette 'SwimmeR.Rmd' failed with diagnostics:
Can't convert `y` <character> to match type of `x` <data.frame>.
--- failed re-building ‘SwimmeR.Rmd’
SUMMARY: processing the following file failed:
‘SwimmeR.Rmd’
Error: Vignette re-building failed.
Execution halted
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64, r-release-windows-x86_64
Version: 0.13.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [81s/108s]
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
Flavor: r-devel-linux-x86_64-fedora-gcc
Version: 0.13.0
Check: tests
Result: ERROR
Running 'testthat.R' [64s]
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
Flavor: r-devel-windows-x86_64
Version: 0.13.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [62s/77s]
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
Flavor: r-patched-linux-x86_64
Version: 0.13.0
Check: tests
Result: ERROR
Running ‘testthat.R’ [62s/73s]
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
Flavor: r-release-linux-x86_64
Version: 0.13.0
Check: tests
Result: ERROR
Running 'testthat.R' [62s]
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
Flavor: r-release-windows-x86_64
Version: 0.13.0
Check: whether package can be installed
Result: ERROR
install log '' does not exist
Flavor: r-oldrel-windows-ix86+x86_64