tests/testthat/test-utils.R

context("utils")

test_that("Site fix works", {
  expect_silent(fix_reference(tempdir(), TRUE))
})

test_that("Script generator works", {
  expect_is(
    data_script(
      script_path = tempfile(),
      script_target = tempdir(),
      spec_path = system.file("specs", package = "dados"),
      is_test = TRUE
    ),
    "list"
  )
})

Try the dados package in your browser

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

dados documentation built on March 18, 2022, 7:14 p.m.