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 Oct. 8, 2024, 5:06 p.m.