@@ -1,2 +1,9 @@
 require(stringr)
-require(RCurl)
+
+# 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)
+}