#' normomo_document
#' @param ... Arguments
#' @importFrom rmarkdown pandoc_available pdf_document
#' @export normomo_document
normomo_document <- function(...) {
rmarkdown::pandoc_available("1.9", TRUE)
template <- system.file("rmarkdown", "templates", "normomo", "resources", "template.latex",
package = "fhi"
)
base <- rmarkdown::pdf_document(..., template = template, latex_engine = "xelatex")
base$inherits <- "pdf_document"
base
}
#' Copies all necessary normomo_document resources
#' @param output_dir Folder to copy resources to
#' @export normomo_resources_copy
normomo_resources_copy <- function(output_dir) {
dir <- system.file("rmarkdown", "templates", "normomo", "skeleton",
package = "fhi"
)
files <- list.files(dir)
files <- files[tolower(files) != "skeleton.rmd"]
for (f in files) {
file.copy(
from = file.path(dir, f),
to = file.path(output_dir, f)
)
}
}
#' Removes all necessary normomo_document resources
#' @param output_dir Folder to remove resources from
#' @export normomo_resources_remove
normomo_resources_remove <- function(output_dir) {
dir <- system.file("rmarkdown", "templates", "normomo", "skeleton",
package = "fhi"
)
files <- list.files(dir)
files <- files[tolower(files) != "skeleton.rmd"]
for (f in files) {
file.remove(file.path(output_dir, f))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.