mxmehl/uni-ba-socialagenda
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

JSON fixed, now large numbers to do

Browse Source
This commit is contained in:
mxmehl
2014-12-01 17:41:33 +01:00
parent e6431006fb
commit f5db293752
6 changed files with 54 additions and 476 deletions
Download Patch File Download Diff File Expand all files Collapse all files
functions.R
+4 -3
View File
@@ -2,10 +2,11 @@ require(stringr)
# Replace characters messing up JSON validation (\,\n,^)
correctJSON <- function(string) {
# string <- str_replace_all(string, pattern = "\n", replacement = " ")
# string <- str_replace_all(string, pattern = "\r", replacement = " ")
# string <- str_replace_all(string, pattern = "\\^", replacement = " ")
string <- str_replace_all(string, pattern = "[^[:print:]]", replacement = " ")
string <- str_replace_all(string, pattern = perl('\\\\(?![tn"])'), replacement = " ")
string <- str_replace_all(string, pattern = "\n", replacement = " ")
string <- str_replace_all(string, pattern = "\r", replacement = " ")
string <- str_replace_all(string, pattern = "\\^", replacement = " ")
return(string)
}