tests/testthat/test-get_me_breakpoints.R

library(dplyr, warn.conflicts = FALSE)

temp <-
    get_me_breakpoints() %>%
    filter(month == '2022-04-01')

test_that("get_me_breakpoints works", {
  expect_equal(length(temp$decile), 10)
})

Try the farr package in your browser

Any scripts or data that you put into this service are public.

farr documentation built on Feb. 16, 2023, 8:11 p.m.