generate_md_episodes.R

generate_md_episodes <- function() {

  # avoid ansi color characters from being printed in the output
  op <- options()
  on.exit(options(op), add = TRUE)
  options(crayon.enabled = FALSE)
  ## get the Rmd file to process from the command line, and generate the path
  ## for their respective outputs
  args  <- commandArgs(trailingOnly = TRUE)
  if (!identical(length(args), 2L)) {
    stop("input and output file must be passed to the script")
  }

  src_rmd <- args[1]
  dest_md <- args[2]

  ## knit the Rmd into markdown
  knitr::knit(src_rmd, output = dest_md)

  # Read the generated md files and add comments advising not to edit them
  add_no_edit_comment <- function(y) {
    con <- file(y)
    mdfile <- readLines(con)
    if (mdfile[1] != "---")
      stop("Input file does not have a valid header")
    mdfile <- append(
      mdfile,
      "# Please do not edit this file directly; it is auto generated.",
      after = 1
    )
    mdfile <- append(
      mdfile,
      paste("# Instead, please edit", basename(y), "in _episodes_rmd/"),
      after = 2
    )
    writeLines(mdfile, con)
    close(con)
    return(paste("Warning added to YAML header of", y))
  }

  vapply(dest_md, add_no_edit_comment, character(1))
}

generate_md_episodes()