current status

2014-12-05 13:21:53 +01:00
parent 967678e2b2
commit 212109d6ac
3 changed files with 38717 additions and 5 deletions
@@ -39,12 +39,18 @@ api_params <- c(
  "oauth_token_secret"     = "rvfv8MgexFKTqrPNSoGrdrZVNhV4fTJb2Bgz249nbvKNg"
 )

+api_url2 <- "https://api.twitter.com/1.1/statuses/show.json"
+id2="325330742961909760"
+query2 <- c(id=id2, trim_user="true", include_entities="false")
+current2 <- twitter_api_call(api_url2, query2, api_params)
+
+

 api_url <- "https://api.twitter.com/1.1/statuses/user_timeline.json";
 max_count <- "200"
 keep <- c("created_at", "id_str", "text", "retweet_count")
 tweets_full <- data.frame(user=character(), name=character(), created_at=character(), id_str=character(), text=character(), retweet_count=character())
-for(a in 157:nrow(acc_df)) {
+for(a in 201:nrow(acc_df)) {
  user <- as.character(acc_df$screenname[a])
  name <- as.character(acc_df$name[a])
  max_id <- "999999999999999999"