tests/testthat/test-refresh_YOURPACKAGENAME.R

In Covid19R/covid19_package_template: WHAT DATA YOU ARE PULLING

refresh_col_names <-
  c("date",
    "location",
    "location_type",
    "location_code",
    "location_code_type",
    "data_type",
    "value"
  )

test_that("location works", {

  res <- refresh_YOURPACKAGENAME()

  expect_named(res, refresh_col_names)

  expect_true(
    "New York" %in% unique(res$location)
  )
})