R/utils.R

Defines functions template_reference

template_reference <- function(template, file) {
    template.file <- system.file('rmarkdown', 'templates', template, 'resources', file, package = 'fost')
    if (!file.exists(template.file)) {
        stop('The ', template, ' file (', file, ') does not exist', call. = FALSE)
    }
    return(template.file)
}
lwjohnst86/fost documentation built on May 21, 2019, 9:04 a.m.