if (auth_has_default()) {
## search for tweets containing "rstats"
rt <- search_tweets("rstats", n = 100)
## plot frequency in 1 min intervals
ts_plot(rt, "mins")
## examine all Twitter activity using weekly intervals
ts_plot(rt, "hours")
}
Run the code above in your browser using DataLab