tests/testthat/test-basic_providers.R

test_that("basic providers", {
  skip_on_cran()

  basic_prov1 <- cqc_provider("1-101639192")
  expect_true(is.list(basic_prov1))

  basic_prov2 <- cqc_provider_locations("1-101639192")
  expect_true(tibble::is_tibble(basic_prov2))
})

Try the cqcr package in your browser

Any scripts or data that you put into this service are public.

cqcr documentation built on Oct. 7, 2019, 5:06 p.m.