diff --git a/extract-twitter-accounts.R b/extract-twitter-accounts.R
index d7eb83e..fd21a7a 100644
--- a/extract-twitter-accounts.R
+++ b/extract-twitter-accounts.R
@@ -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))
 
 # ---------------