tests/testthat/test-refresh_CanadaC19.R

In Covid19R/CanadaC19: Canadian COVID-19 Case Data

refresh_col_names <-
  c(
    "case_id",
    "provincial_case_id",
    "date",
    "location",
    "location_type",
    "data_type",
    "travel_yn",
    "locally_acquired",
    "data_details",
    "data_url",
    "additional_info",
    "travel_history_country",
    "age",
    "sex",
    "location_code",
    "location_code_type",
    "value"
  )

test_that("Check if columns still populate!", {
  
  res <- refresh_CanadaC19_cases()
  
  expect_named(res, refresh_col_names)

  expect_true(
    "Ontario" %in% unique(res$location)
  )  
})