tests/testthat/test-get_interventions_data.R

test_that("get_interventions_data works as expected", {

  d <- get_interventions_data()
  expect_is(d, "data.frame")
  expect_is(d$date_implemented, "Date")
})
epiforecasts/NCoVUtils documentation built on June 26, 2020, 1:20 a.m.