## get a data frame of users data
usrs <- search_users("\"rstats\"")
## get user timelines (up to 3200 of most recent tweets) using user IDs
tmls <- lapply(usrs$user_id[1:10], get_timeline, n = 3200)
## combine into single data frame
tmls <- do.call("rbind", tmls)