qf_get_tweets.Rmd

---
title: "Get tweets"
author: "Giorgio Comai"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE)
library("quotefinder")
```

```{r time}
Sys.time()
```


```{r token}
twitter_token <- readRDS(file = "twitter_token.rds")
```


```{r gettweets}
qf_get_tweets_from_list(slug = "current-meps",
                        owner_user = "EDJQuoteFinder",
                        n = 3200,
                        include_rts = FALSE,
                        twitter_token = twitter_token)
```


```{r}
all_meps <- rtweet::lists_members(1184769179712397312, token = twitter_token)
```


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