Nothing
## ----opts, echo=FALSE----------------------------------------------------
knitr::opts_chunk$set(
fig.width = 7,
fig.height = 5
)
## ----setup, echo=TRUE, eval=TRUE-----------------------------------------
library(rodham)
# get list of emails
data("emails")
# equivalent to:
em <- search_emails()
identical(emails, em)
## ----edges, echo=TRUE, eval=TRUE-----------------------------------------
edges <- edges_emails(emails)
knitr::kable(head(edges))
## ----simple network, echo=TRUE, eval=TRUE--------------------------------
g <- igraph::graph.data.frame(edges)
# plot network
plot(g, layout = igraph::layout.fruchterman.reingold(g),
vertex.label.color = hsv(h = 0, s = 0, v = 0, alpha = 0.0),
vertex.size = log1p(igraph::degree(g)) * 2, edge.arrow.size = 0.1,
edge.arrow.width = 0.1, edge.width = log1p(igraph::E(g)$freq)/4,
vertex.frame.color="#FFFFFF")
## ----get xpdf, echo=TRUE, eval=FALSE-------------------------------------
# xpdf <- get_xpdf(dest = "C:/") # get extractor
# # or if you downloaded manually point to pdftotext
# xpdf <- "your/path/xpdfbin-win-3.04/bin64/pdftotext"
## ----get emails, echo=TRUE, eval=FALSE-----------------------------------
# dir.create(dir) # directory must exist
# emails_bengh <- get_emails(release = "Benghazi", save.dir = "./rodham", extractor = xpdf)
## ----download emails, echo=TRUE, eval=FALSE------------------------------
# # download specific release
# dl <- download_emails("August") # returns full pass to zip
#
# pdf <- "emails_pdf" # directory where pdf will be extracted to
# txt <- "emails.text" # directory where txt will be extracted to
#
# # create directories
# dir.create(pdf)
# dir.create(emails_bengh)
#
# unzip(dl, exdir = pdf)
#
# # get emails released in august
# extract_emails(pdf, save.dir = txt, extractor = ext)
## ----read emails, echo=TRUE, eval=FALSE----------------------------------
# contents <- load_emails(emails_bengh)
## ----clean emails, echo=TRUE, eval=FALSE---------------------------------
# cont <- get_content(contents)
# cont <- clean_content(cont)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.