tests/testthat/test_yearfilter.R

data <- get_cbb_data()

expect_equal(
  year_filter(data, 2021),
  filter(data, year(date) == 2021)
)

expect_equal(
  year_filter(data),
  filter(data, year(date) == 2022)
)
devinwarner10/devinwcbb documentation built on April 22, 2022, 2:06 a.m.