Running 'testthat.R' [121s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(SwimmeR)
  > 
  > test_check("SwimmeR")
  == Failed tests ================================================================
  -- Failure (test-ISL.R:14:3): ISL season 2 dataframe ---------------------------
  dim(df) not equivalent to c(324, 20).
  1/2 mismatches
  [2] 30 - 20 == 10
  -- Error (test-Swim_Parse_works.R:219:3): swim_parse works list ----------------
  Error: length of 'dimnames' [2] not equal to array extent
  Backtrace:
       x
    1. +-SwimmeR:::Parse_Map(df_test) test-Swim_Parse_works.R:219:2
    2. | \-purrr::map(...) test-Swim_Parse_works.R:128:4
    3. |   \-SwimmeR:::.f(.x[[i]], ...)
    4. |     +-base::suppressWarnings(...)
    5. |     | \-base::withCallingHandlers(expr, warning = function(w) invokeRestart("muffleWarning"))
    6. |     \-`%>%`(...)
    7. +-dplyr::select(., Place, Team, Prelims_Time, Finals_Time, Row_Numb = V4)
    8. \-dplyr::na_if(., "")
    9.   +-base::`[<-`(`*tmp*`, x == y, value = NA)
   10.   +-base::`[<-.data.frame`(`*tmp*`, x == y, value = NA)
   11.   \-base::Ops.data.frame(x, y)
   12.     \-base::matrix(...)
  -- 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:3:3): Singapore results, splits in parenthesis ---------
  Error: arguments imply differing number of rows: 444, 436
  Backtrace:
       x
    1. +-`%>%`(...) test-splits.R:3: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:45:3): NYS results, multiple lines of splits with different lengths, has parenthesis --
  Error: arguments imply differing number of rows: 647, 633
  Backtrace:
       x
    1. +-`%>%`(...) test-splits.R:45: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:65: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:65: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)
  -- Failure (test-splits.R:90:3): ISL results -----------------------------------
  `match_sum` not equivalent to 24.
  1/1 mismatches
  [1] 104 - 24 == 80
  
  [ FAIL 7 | WARN 1 | SKIP 0 | PASS 18 ]
  Error: Test failures
  Execution halted