🤷‍♀️Fetch Hillary Rodham Clinton emails
Switch branches/tags
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
R
data
inst/doc
man
revdep
tests
vignettes
.Rbuildignore
.gitignore
.travis.yml
DESCRIPTION
LICENSE
NAMESPACE
NEWS.md
README.md
appveyor.yml
cran-comments.md
rodham.Rproj

README.md

Travis-CI Build Status AppVeyor Build Status Coverage Status codecov CRAN CRAN_Status_Badge

rodham

benghazi

Fetch and process Hillary Rodham Clinton's personal emails. See site for more details.

Installation

You can install rodham from CRAN or Github with:

# from CRAN
install.packages("rodham")

# dev version
devtools::install_github("JohnCoene/rodham")

Example

You will find more a in-depth walkthrough here.

Data

# load emails
data(emails)

# build graph
edges <- edges_emails(emails)
g <- igraph::graph.data.frame(edges)

# plot 
plot(g)

Download contents

See "how-to" vignette for more examples!

ext <- get_xpdf() # get pdf extractor

# get emails related to Benghazi released in December
emails_bengh <- get_emails(release = "Benghazi", extractor = ext)

# load contents
hrc_emails <- load_emails(emails_bengh)

print(hrc_emails)
#> 4366 emails

# get emails content
cont <- get_content(hrc_emails)

# clean emails
cont <- clean_content(cont)

####
# Chart in header
####

# devtools::install_github("JohnCoene/echarts")
library(echarts)
library(dplyr)

get_com(hrc_emails) %>%
  filter(from != "") %>%
  count(from) %>%
  echart(from) %>%
  ecloud(n) %>%
  etitle(text = "Email senders", subtext = "Benghazi release") %>%
  etheme("helianthus")

Resources