current status

2014-12-05 12:28:51 +01:00
parent 4501747a44
commit 967678e2b2
8 changed files with 70796 additions and 2679 deletions
@@ -6,7 +6,9 @@ correctJSON <- function(string) {
 #   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 = "&..;", replacement = " ")
  string <- str_replace_all(string, pattern = perl('\\\\(?![tn"])'), replacement = " ")
+  string <- str_replace_all(string, pattern = "\\{5}", replacement = " ")
  return(string)
 }

@@ -17,13 +19,3 @@ insertRow <- function(existingDF, newrow, r) {
  row.names(existingDF) <- 1:nrow(existingDF)
  return(existingDF)  
 }
-
-# mergeIfExists <- function(fulldf, tempdf) {
-#   if(exists(fulldf)) {
-#     fulldf <- insertRow(fulldf, tempdf)
-#   }
-#   else {
-#     fulldf <- tempdf
-#   }
-#   return(fulldf)
-# }