---
title: "Wikileaks Twitter DM - Home"
author: '@_colinfay'
date: "`r Sys.Date()`"
fig_width: 10
fig_height: 4 
navlink: "[Wikileaks Twitter DM](https://colinfay.me/wikileaksdm)"
og:
  type: "article"
  title: "Wikileaks Twitter DM"
footer:
  - content: '<a href="https://colinfay.me">colinfay.me</a> • <a href="https://twitter.com/_ColinFay">@_colinfay</a><br/>'
output: markdowntemplates::skeleton
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, message = FALSE, warning = FALSE)
source("funs.R")
```

`r shiny::includeMarkdown("intro.Rmd")`

## The datasets: 

### List of all DMs

A dataset with 3 columns: 

+ text: extracted text 
+ date: date of the dm
+ user: user who sent the dm

#### `r fa("download")` [wikileaks_dm.csv](wikileaks_dm.csv)

```{r}
full <- read_csv("wikileaks_dm.csv") 
full %>% 
  dt()
```

`r shiny::includeMarkdown("outro.Rmd")`