before for loop start

2014-11-29 21:52:46 +01:00
parent d0621942ca
commit c2190c7060
1 changed files with 6 additions and 2 deletions
@@ -36,10 +36,14 @@ params <- c(
 );

 url   <- "https://api.twitter.com/1.1/statuses/user_timeline.json";
-query <- c(screen_name="mxmehl", include_rts=1, count="100", exclude_replies="true", trim_user="true", include_entities="false");
+query <- c(screen_name="mxmehl", include_rts=1, count="200", exclude_replies="true", trim_user="true", include_entities="false");
+
+
+as.character(as.numeric(result$id_str[nrow(result)]) - 1)
+str_detect(result$created_at[nrow(result)], "2013$")
+

 result <- twitter_api_call(url, query, params)
-
 result <- fromJSON(correctJSON(result))

 # ---------------