# NOT RUN {
# get xpdf extractor
ext <- get_xpdf()
# create
dir.create("emails")
# get emails released in august
emails_aug <- get_emails(release = "August", save.dir = "./emails",
extractor = ext)
# use manually downloaded extractor
# ext <- "C:/xpdfbin-win-3.04/bin64/pdftotext.exe"
# get emails related to Benghazi released in December
emails_bengh <- get_emails(release = "Benghazi", extractor = ext,
save.dir = "./emails")
contents <- load_emails(emails_bengh)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab