R/pre_process.R

Defines functions push_pre_process

push_pre_process <- function(md_doc){
   content <- readLines(md_doc$local_md) %>%
     gsub(pattern = "(?<=^)\\s*(?=$)", replacement = "\n<br>\n", x = ., perl = TRUE)
   processed_doc <- file.path(".",".markdrive",paste0(md_doc$name,"_processed",".md"))
   writeLines(content, processed_doc)
   processed_doc
}
MilesMcBain/markdrive documentation built on May 28, 2019, 2:33 a.m.