# NOT RUN {
# download emails
download_emails("August") # August release
dir.create("emails_pdf") # dir to extract zip
unzip("August.zip", exdir = "./emails_pdf")
# create directory to store extracted contents
dir.create("emails_txt")
ext <- get_xpdf()
extarct_contents(emails = "HRC_Email_296", dest = "./emails_txt", extractor = ext)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab