working userloop

2014-12-01 18:38:58 +01:00
parent 1fc222f55c
commit 92179c6fb0
2 changed files with 67 additions and 67 deletions
@@ -10,15 +10,6 @@ correctJSON <- function(string) {
  return(string)
 }

-correctJSON2 <- function(string) {
-  #string <- sub(x=string, pattern = perl('\\\\(?![tn"])'), replacement = " ")
-  string <- gsub(x=string, pattern = "\n", replacement = " ")
-  string <- gsub(x=string, pattern = "\r", replacement = " ")
-  string <- gsub(x=string, pattern = "\\^", replacement = " ")
-  #\xed\xa0\xbd\xed\xb1\x8d\xed\xa0\xbd\xed\xb8\x8e\
-  return(string)
-}
-
 insertRow <- function(existingDF, newrow, r) {
  r <- as.numeric(nrow(existingDF)) + 1
  existingDF <- rbind(existingDF,newrow)