tests/testthat/test-bdc_create_dir.R

## skip("dont run")
skip_on_cran()
skip_on_ci()

bdc_create_dir()

test_that("bdc dir exists", {
  expect_true(dir.exists(here::here("Output/Check")))
  expect_true(dir.exists(here::here("Output/Intermediate")))
  expect_true(dir.exists(here::here("Output/Report")))
  expect_true(dir.exists(here::here("Output/Figures")))

  unlink(here::here("Output"), recursive = TRUE)
})

Try the bdc package in your browser

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

bdc documentation built on April 3, 2025, 10:53 p.m.