tests/testthat/test_knit.R

In memoiR: R Markdown and Bookdown Templates to Publish Documents

testthat::context("Knit")

Sys.setlocale('LC_ALL','C')

# Knit from template
testthat::test_that("Templates are knitted", {
  testthat::skip_on_cran()
  # Skip on GitHub Pages because knit_all() is run to build the gallery
  # testthat::skip_on_ci()
  # knit all templates
  if (rmarkdown::pandoc_available()) {
    destination <- paste(getwd(), "/docs", sep="")
    knit_all(destination=destination)
    # Clean up
    unlink(destination, recursive = TRUE)
  }
})