tests/testthat/helpers.R

In epoxy: String Interpolation for Documents, Reports and Apps

render_rmd <- function(
	rmd_text,
	...,
	output_format = rmarkdown::md_document(),
	envir = new.env()
) {
	if (identical(Sys.getenv("TESTTHAT"), "true")) {
		skip_if_not(rmarkdown::pandoc_available("1.12.3"))
	}

	if (length(rmd_text) == 1 && !grepl("\n", rmd_text)) {
		if (file.exists(rmd_text)) {
			rmd_text <- readLines(rmd_text)
		}
	}

	tmpfile <- tempfile(fileext = ".Rmd")
	on.exit(unlink(tmpfile))
	writeLines(rmd_text, tmpfile)
	out <- rmarkdown::render(tmpfile, output_format = output_format, ..., envir = envir, quiet = TRUE)
	if (is.character(out) && file.exists(out)) {
		on.exit(unlink(out), add = TRUE)
		readLines(out)
	} else out
}

render_basic_rmd <- function(..., envir = parent.frame()) {
	render_rmd(c(
		"---",
		"output: md_document",
		"---",
		"",
		...
	), envir = envir)
}