if (auth_has_default()) {
## handles of women senators
orgs <- c("_R_Foundation", "ropensci")
## get timelines for each
orgs_tml <- get_timeline(orgs, n = 100)
## get single time series for tweets
ts_data(orgs_tml)
## using weekly intervals
ts_data(orgs_tml, "weeks")
}
Run the code above in your browser using DataLab