if (auth_has_default()) {
tw <- search_tweets("#rstats")
# retrieve older tweets
older <- search_tweets("#rstats", max_id = tw)
even_older <- search_tweets("#rstats", max_id = older)
# retrieve newer tweets
newer <- search_tweets("#rstats", since_id = tw)
}
Run the code above in your browser using DataLab