29 lines
967 B
R
29 lines
967 B
R
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 = " ")
|
|
return(string)
|
|
}
|
|
|
|
insertRow <- function(existingDF, newrow, r) {
|
|
r <- as.numeric(nrow(existingDF)) + 1
|
|
existingDF <- rbind(existingDF,newrow)
|
|
existingDF <- existingDF[order(c(1:(nrow(existingDF)-1),r-0.5)),]
|
|
row.names(existingDF) <- 1:nrow(existingDF)
|
|
return(existingDF)
|
|
}
|
|
|
|
# mergeIfExists <- function(fulldf, tempdf) {
|
|
# if(exists(fulldf)) {
|
|
# fulldf <- insertRow(fulldf, tempdf)
|
|
# }
|
|
# else {
|
|
# fulldf <- tempdf
|
|
# }
|
|
# return(fulldf)
|
|
# } |