tests/testthat/test-data_valid.R

In adityasinhak/coronavirus: The 2019 Novel Coronavirus COVID-19 (2019-nCoV) Dataset

test_that(desc = "Test the dates", {
  expect_equal(base::class(coronavirus$date) == "Date", TRUE)
  expect_equal(base::min(coronavirus$date) == as.Date("2020-04-10"), TRUE)
})


test_that(desc = "Test the type variable", {
  expect_equal(base::all(c("confirmed", "death") %in%
                           unique(coronavirus$type)), TRUE)
  expect_equal(base::any(is.na(coronavirus$type)), FALSE)
})