if (FALSE) {
tmp <- setup_ezknit_test()
ezknit("R/ezknit_test.Rmd", wd = "ezknitr_test")
ezknit("R/ezknit_test.Rmd", wd = "ezknitr_test",
out_dir = "output", fig_dir = "coolplots",
params = list(numPoints = 50))
open_output_dir()
unlink(tmp, recursive = TRUE, force = TRUE)
tmp <- setup_ezspin_test()
ezspin("R/ezspin_test.R", wd = "ezknitr_test")
ezspin("R/ezspin_test.R", wd = "ezknitr_test",
out_dir = "output", fig_dir = "coolplots",
params = list(numPoints = 50), keep_rmd = TRUE)
open_output_dir()
unlink(tmp, recursive = TRUE, force = TRUE)
}
Run the code above in your browser using DataLab