Running 'testthat.R' [47s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(SwimmeR)
  > 
  > test_check("SwimmeR")
  == Skipped tests ===============================================================
  * On CRAN (13)
  
  == Failed tests ================================================================
  -- Error (test-relay_swimmers_works.R:5:3): relay swimmers one line works ------
  Error: arguments imply differing number of rows: 40, 34
  Backtrace:
      x
   1. +-SwimmeR::swim_parse(...) test-relay_swimmers_works.R:5:2
   2. | +-`%>%`(...)
   3. | +-base::transform(...)
   4. | \-base::transform.data.frame(...)
   5. |   +-base::do.call("data.frame", c(list(`_data`), e[!matched]))
   6. |   \-base::data.frame(...)
   7. \-dplyr::select(., -Row_Numb)
  -- Error (test-splits.R:5:3): Singapore results, splits in parenthesis ---------
  Error: arguments imply differing number of rows: 444, 436
  Backtrace:
       x
    1. +-`%>%`(...) 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. | +-`%>%`(...)
   12. | +-base::transform(...)
   13. | \-base::transform.data.frame(...)
   14. |   +-base::do.call("data.frame", c(list(`_data`), e[!matched]))
   15. |   \-base::data.frame(...)
   16. \-dplyr::select(., -Row_Numb)
  -- Error (test-splits.R:71:3): USA Swimming results, splits don't have parenthesis, some splits longer than 59.99 --
  Error: arguments imply differing number of rows: 107, 101
  Backtrace:
       x
    1. +-swim_parse(read_results(file), splits = TRUE) %>% splits_reform() 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(read_results(file), splits = TRUE)
   11. | +-`%>%`(...)
   12. | +-base::transform(...)
   13. | \-base::transform.data.frame(...)
   14. |   +-base::do.call("data.frame", c(list(`_data`), e[!matched]))
   15. |   \-base::data.frame(...)
   16. \-dplyr::select(., -Row_Numb)
  
  [ FAIL 3 | WARN 0 | SKIP 13 | PASS 13 ]
  Error: Test failures
  Execution halted