# NOT RUN {
template <- make_template(
"---\ntitle: Example\noutput: html_document\n---\n",
"\nThe random number is `r random_number`.\n"
)
template <- use_parameters(template, "random_number")
pattern_file <- tempfile("out", tempdir(), ".Rmd")
export_template(template, pattern_file)
random_number <- rnorm(1)
if (rmarkdown::pandoc_available()) {
rmarkdown::render(pattern_file, params = provide_parameters(random_number))
}
# }
Run the code above in your browser using DataLab