tests/testthat/test_setup_rawdata.R

options(usethis.quiet = TRUE)
test_that("File and directory are created", {
  create_local_package()

  rlang::local_interactive(FALSE)
  print(getwd())
  washr::setup_rawdata()
  expect_true(file.exists("data-raw/data_processing.R"))
})
unlink("data-raw", recursive = TRUE)

Try the washr package in your browser

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

washr documentation built on April 4, 2025, 1:10 a.m.