tests/testthat/test_data_valid.R

In Covid19R/covid19italy: The 2019 Novel Coronavirus COVID-19 (2019-nCoV) Italy Dataset

test_that(desc = "Test the dates", {

  expect_equal(base::class(italy_total$date) == "Date", TRUE)
  expect_equal(base::class(italy_region$date) == "Date", TRUE)
  expect_equal(base::class(italy_province$date) == "Date", TRUE)
  expect_equal(base::min(italy_total$date) == as.Date("2020-02-24"), TRUE)
})


test_that(desc = "Test the structure", {

  expect_equal(base::ncol(italy_total) == 12, TRUE)
  expect_equal(base::ncol(italy_region) == 17, TRUE)
  expect_equal(base::ncol(italy_province) == 11, TRUE)

  expect_equal(base::nrow(italy_total) >= 58, TRUE)
  expect_equal(base::nrow(italy_region) >= 1200, TRUE)
  expect_equal(base::nrow(italy_province) >= 3072, TRUE)

})