tests/testthat/test_teamfilter.R

data <- get_cbb_data()
expect_equal(
  team_filter(data, "Southern Utah"), 
  filter(data, home == "Southern Utah" | vis == "Southern Utah")
)

expect_equal(
  team_filter(data, "Northern Arizona"), 
  filter(data, home == "Northern Arizona" | vis == "Northern Arizona")
)

expect_equal(
  team_filter(data, "BYU"), 
  filter(data, home == "BYU" | vis == "BYU")
)
devinwarner10/devinwcbb documentation built on April 22, 2022, 2:06 a.m.