tests/testthat/test_get_tables.R

context("Testing get_tables()")

endpoint <- Sys.getenv("FDP_endpoint")

test_that("get_tables returns a character vector of tables", {
  expect_silent(get_tables())
  expect_true(is.character(get_tables(endpoint)))
  expect_true(is.character(get_tables(endpoint)))
})

Try the rDataPipeline package in your browser

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

rDataPipeline documentation built on Nov. 18, 2021, 1:14 a.m.