R/word-example-helper.R

In CVPIA-OSC/EMLaide: Provides functions for building EML metadata for EDI's data repository

#' @title Word Document Example Reader 
#' @description Helps read documents which are present in the examples of the
#'  \code{EMLaide} package. 
#' @param path Name of file. If `NULL`, the example files will be listed.
#' @export
#' @examples
#' word_example()
#' word_example("abstract_template.docx")
word_example <- function(path = NULL) {
  if (is.null(path)) {
    dir(system.file("extdata", package = "EMLaide"))
  } else {
    system.file("extdata", path, package = "EMLaide", mustWork = TRUE)
  }
}