uni-ba-socialagenda/functions.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)
# }