if (auth_has_default()) {
## lapply through three different search queries
lrt <- lapply(
c("rstats OR tidyverse", "data science", "python"),
search_tweets,
n = 100
)
## convert list object into single parsed data rame
rt <- do_call_rbind(lrt)
## preview tweets data
rt
## preview users data
users_data(rt)
}
Run the code above in your browser using DataLab