bla

extract-twitter-accounts.R

@@ -47,6 +47,7 @@ api_params <- c(
 )
 
 api_url   <- "https://api.twitter.com/1.1/statuses/user_timeline.json";
+# api_url   <- "https://api.twitter.com/1.1/statuses/show.json";
 user <- "peteraltmaier"
 max_count <- "200"
 max_id <- "999999999999999999"
@@ -58,9 +59,11 @@ repeat {
              screen_name=user, 
              count=max_count, 
              max_id=max_id);
+#   query <- c(trim_user="true", include_entities="false", 
+#              id="431858659656990721");
   if(exists("tweets_full")) {
     current <- twitter_api_call(api_url, query, api_params)
-    tweets_temp <- fromJSON(correctJSON(current))
+    tweets_temp <- fromJSON(current)
     tweets_temp <- tweets_temp[keep]
     tweets_full <- insertRow(tweets_full, tweets_temp)
   }