R/rendering.R

In dpastoor/lpgitbook: Knits Rmd files to format suitable for gitbook

#' render and log all rmds
#' @param file rmd file to render
#' @param ... to pass to rmarkdown::render
#' @export
render_and_log <- function(file,...) {
  log_file <- paste0(file, ".log")
 writeLines(paste0("beginning render of: ", file), log_file)
  output <- rmarkdown::render(file,...)
 cat(c("completed render of: ", file), file= log_file, append=TRUE )
  return(output)
}

#' render all rmds
#' @param dir
#' @param ignore
#' @export
render_rmds_to_md <- function(dir, ignore = NULL, log_render=FALSE) {
  if(!is.null(ignore)) {
    # TODO: handle ignore files
  }
  rmds <- get_rmds(dir)
  message("injecting yaml md headers")
  vapply(rmds, inject_yaml_md_output, logical(1))

  message("rendering")
  if(!log_render) {
    vapply(rmds, rmarkdown::render, character(1))
  } else {
  vapply(rmds, render_and_log, character(1))
  }

}

#' copy all files to temp dir to prepare to render
#' @param dir
#' @export
#' @return path of book directory for rendering
prepare_book_dir <- function(dir) {
  path <- normalizePath(dir)
  folder <- basename(path)
  new_folder <- paste0("_temp_", folder)
  new_path <- gsub(folder, new_folder, path, fixed=T)
  if (!file.exists(new_path)) {
    message("creating temp directory")
    dir.create(new_path)
  }
  message("copying all files to temp dir")
  file.copy(paste0(path, "//."), new_path, overwrite=TRUE, recursive = TRUE)
  return(new_path)
}