Practice writing SQL queries that answer the following questions using the database we just created:

1. Who wrote the post that was shared the most times during this period? What does it say?

```{r}
library(DBI)
db <- dbConnect(RSQLite::SQLite(), "facebook-db.sqlite")

dbGetQuery(db, 
           "SELECT screen_name, message
           ...")

```

2. What about the post with the most comments?

```{r}


```

3. Which was the post that received the most likes in January of 2017?

```{r}


```

4. What was the photo posted by a Member of Congress that received the most "angry" reactions?

```{r}

```

5. What was the post by `senatorsanders` that received the most "angry" reactions? And the most "love" reactions?

```{r}

```

6. Which was the post mentioning "Trump" that was shared the most? And which was the post that received the most "love" reactions?

```{r}

```





