R/render_page.R

In michaelfrancenelson/rmd.utils:

#' Wrapper for render
#' Includes argument to check for specific version of pandoc or higher
#'
#'
#' @import utils
#' @import rmarkdown
#'
#' @param filename_in Name of input file
#' @param filename_out Name of output file.  Given without extension: the extension will be added according to the output format specified in the header.
#' @param pandoc_version Required version of pandoc.  If this version (or higher) is not found, the page will not render.
#' @param dir_out output directory
#'
#' @export

render_page = function(filename_in, filename_out, dir_out, pandoc_version = "2.11")
{

  if (compareVersion(as.character(pandoc_version()), pandoc_version) >= 0)
  {
    pandoc_version = pandoc_version()
    find_pandoc(version = pandoc_version)
    render(
      input = filename_in,
      output_file = filename_out,
      output_dir = dir_out
    )
    return(TRUE)
  }
  sprintf("Pandoc version %s or higher not found, not rendering document")
  return(FALSE)
}