tests/testthat/test-rmd_compiles.R

In reproducibleRchunks: Automated Reproducibility Checks for R Markdown Documents

test_that("RMD compiles and reproduces", {

  json_filename_chunk1 <- testthat::test_path("testdata",".repro_test_json.Rmd_somenumbers.json")
  if (file.exists(json_filename_chunk1)) {
    file.remove(json_filename_chunk1)
  }

  path <- testthat::test_path("testdata")
  fname <- "test_json.Rmd"
  foutname <- "test_json.html"


  lastwd <- getwd()
  setwd(normalizePath(path))

  # create a fresh environment (to avoid that variables
  # defined in the Rmd file are already defined locally)
  envir <- new.env()
  knitr::knit(input=fname,output = foutname, envir = envir)

  testthat::expect_true(file.exists(foutname))

  setwd(lastwd)

  testthat::expect_true(
    file.exists(json_filename_chunk1)
  )

  # clean up
  if (file.exists(json_filename_chunk1)) {
    file.remove(json_filename_chunk1)
  }
  if (file.exists(foutname)) unlink(foutname)

})