tests/testthat/test-get_data_vaccine.R

test_that("get data  works", {

  bd <- get_data_vaccine()
  testthat::expect_s3_class(bd, "tbl_df")
  testthat::expect_lt(nrow(bd), 6000)

})
denis-or/episcrap documentation built on July 1, 2022, 8:21 a.m.