R/utils.R

In Amarakon55/amaRyaml: AmaRYAML

#' @export
pkg_file <- function(...) system.file(..., package = "amaryaml")

#' @export
pkg_file_template <- function(...) pkg_file("rmarkdown", "templates", ...)

#' @export
pkg_resource <- function(...) pkg_file("resources", ..., mustWork = TRUE)

#' @export
find_template <- function(template, file = "template.tex") {
  res <- pkg_file_template(template, "resources", file)
  if (res == "") {
    stop("Couldn't find template file ", template, "/resources/", file, call. = FALSE)
  }
  res
}

#' @export
find_theme <- function(theme, file = "theme.theme") {
  res <- pkg_file_template(theme, "resources", file)
  if (res == "") {
    stop("Couldn't find theme file ", theme, "/resources/", file, call. = FALSE)
  }
  res
}

#' @export
lua_filters <- function(...) {
  c(rbind("--lua-filter", pkg_resource("lua", c(...))))
}