require(stringr)

# Replace characters messing up JSON validation (\,\n,^)
correctJSON <- function(string) {
  string <- str_replace_all(string, pattern = perl('\\\\(?![tn"])'), replacement = " ")
  string <- str_replace_all(string, pattern = fixed("\n"), replacement = " ")
  string <- str_replace_all(string, pattern = fixed("^"), replacement = " ")
  return(string)
}