R/fixURLs.R

Defines functions fixURLs

fixURLs = function(mdfile){
  f1 = file(mdfile)
  lines = readLines(f1, n = -1)
  modlines = gsub("(www.", "(http://www.", lines, fixed = TRUE)
  writeLines(modlines, f1)
  close(f1)
}
markwh/markwrites documentation built on May 21, 2019, 12:26 p.m.