tests/testthat/test-1-download_test_datasets.R

context("download test datasets")

test_that("test_datasets exists", {
  skip_on_cran()

  test_datasets_path <- "extdata/test_datasets"
  download_test_datasets(test_datasets_path)
  
  expect_false(system.file(test_datasets_path, package = "sistec") == "")
})

Try the sistec package in your browser

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

sistec documentation built on Oct. 27, 2020, 1:06 a.m.