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) ) })