R/remove_valid_contractions.R

In HughParsonage/grattanReporter: Parses Grattan Reports, Possibly Creating PDFs also

remove_valid_contractions <- function(lines){
  for (valid in valid_English_contractions){
    lines <- gsub(sprintf("\\b%s\\b", valid), "<contraction>", lines, perl = TRUE, ignore.case = TRUE)
  }
  lines
}