In giocomai/edjnetquotefinder: EDJNet's QuoteFinder

knitr::opts_chunk$set(echo = FALSE)
library("quotefinder")

Sys.time()

twitter_token <- readRDS(file = "twitter_token.rds")

qf_get_tweets_from_list(slug = "current-meps",
                        owner_user = "EDJQuoteFinder",
                        n = 3200,
                        include_rts = FALSE,
                        twitter_token = twitter_token)

all_meps <- rtweet::lists_members(1184769179712397312, token = twitter_token)

qf_get_tweets_by_user(users = sample(x = all_meps$user_id, size = 10),
                      n = 3200, 
                      wait = 300,
                      twitter_token = twitter_token)