tests/testthat/test_allteamsrecords.R

data <- get_cbb_data()
expect_equal(
  all_teams_records(data)[1],
  tibble(team = append(data$home, data$vis)) %>% distinct()
  )
devinwarner10/devinwcbb documentation built on April 22, 2022, 2:06 a.m.