find_file <- function(template, file) {
template <- system.file("rmarkdown", "templates", template, file,
package = "faodoc")
if (template == "") {
stop("Couldn't find template file ", template, "/", file, call. = FALSE)
}
template
}
find_resource <- function(template, file) {
find_file(template, file.path("resources", file))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.