tests/testthat/test-get_controlled_covab.R

In Covid19R/covid19R: Provides access to the standardized tidy datasets that are part of the covid19R project

test_that("can get data info", {
  vocabs <- c("data_type", "location_type", "location_code_type")

  for(x in vocabs){
    r <- get_covid19_controlled_vocab(x)
    expect_gt(nrow(r),1)

  }
})