Search tweets example using #txlege tweets

search_tweets-ex-txlege.R

library(rtweet)

## number of iterations
n <- 5

## to do a certain task (e.g., searching for tweets on a topic), 
##    twitter policy says you should use one token
## so select one token
token <- get_tokens()
if (!"Token" %in% class(token)) {
    token <- token[[1]]
}

## initialize vectors
maxid <- NULL
txleg <- vector("list", n)

## check rate limit
rtlimit <- rate_limit(token, "search/tweets")

## loop through to capture all tweets
for (i in seq_len(n)) {
    ## if rate limit exhausted, wait for reset (cooldown)
    if (rtlimit[["remaining"]] == 0) {
        Sys.Sleep(rtlimit[["reset"]])
    }
    ## search tweets
    txleg[[i]] <- search_tweets(
        "txlege", n = 18000, max_id = maxid, token = token)
    ## update rate limit
    rtlimit <- rate_limit(token, "search/tweets")
    ## break conditions
    if (!isTRUE(NROW(txleg[[i]]) > 0)) break
    if (identical(maxid, txleg[[i]]$status_id[NROW(txleg[[i]])])) break
    ## update maxid
    maxid <- txleg[[i]]$status_id[NROW(txleg[[i]]
}
txdf <- do.call("rbind", txleg)
ts_plot(txdf, "hours", theme = "nerdy", main = "#txlege tweets")