9 lines
370 B
R
9 lines
370 B
R
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)
|
|
} |