tests/testthat/test-skeleton.R

test_that("rmardown skeleton exists", {
  skip_if_not(interactive())
  withr::with_tempdir({
    expect_error(
      rmarkdown::draft(
        file = "flat_skeleton.Rmd",
        template = "additional",
        package = "fusen", edit = FALSE
      ),
      regexp = NA
    )
  })
})

Try the fusen package in your browser

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

fusen documentation built on Aug. 17, 2023, 5:09 p.m.