R/remove_comments.R

In papaja: Prepare American Psychological Association Journal Articles with R Markdown

#' Remove Comments
#'
#' Removes markdown comments from an R Markdown file.
#'
#' @param x Character. Path to an R Markdown file.
#' @param file Character. Name of the new R Markdown file without comments.
#' @return No return value, called to write text to `file`.
#' @export

remove_comments <- function(x, file) {

  x <- readLines_utf8(x)
  x <- x[!grepl("^<!--((?!-->).)+-->$", x, useBytes = TRUE, perl = TRUE)]
  x <- x[!grepl("^<@~\\{#.+\\}$", x, useBytes = TRUE)]
  x <- x[!grepl("^~@>$", x, useBytes = TRUE)]

  x <- gsub("<!--((?!-->).+)-->", "", x, useBytes = TRUE, perl = TRUE)

  writeLines(x, con = file, useBytes = TRUE)
}