tests/testthat/test-data_geo.R

In mcnakhaee/CoronaWatchNL: COVID-related data in the Netherlands from a variety of sources, packaged for use in R

test_that("get_national_cases returns the correct number of columns", {
  result <- get_daily_national_cases()
  expect_equal(length(result), 4)

})

test_that("get_provincial_cases returns the correct number of columns", {
  result <- get_daily_provincial_cases()
  expect_equal(length(result), 6)

})


test_that("the results are up-to-date",{
  result_national <- get_daily_national_cases()
  expect_gte(max(result_national$Datum),Sys.Date()-1)
})