next

extract-twitter-accounts.R

@@ -36,15 +36,11 @@ params <- c(
 );
 
 url   <- "https://api.twitter.com/1.1/statuses/user_timeline.json";
-query <- c(screen_name="peteraltmaier", include_rts=1, count="100", exclude_replies="true", trim_user="true", include_entities="false");
+query <- c(screen_name="mxmehl", include_rts=1, count="100", exclude_replies="true", trim_user="true", include_entities="false");
 
 result <- twitter_api_call(url, query, params)
 
-# Replace characters messing up JSON validation (\ and \n)
-result <- str_replace(string = result, pattern = perl('\\\\(?![tn"])'), replacement = " ")
-result <- str_replace(string = result, pattern = "\n", replacement = " ")
-
-result <- fromJSON(result)
+result <- fromJSON(correctJSON(result))
 
 # ---------------