## .pdf
pdf_doc <- system.file("docs/rl10075oralhistoryst002.pdf",
package = "textreadr")
read_document(pdf_doc)
## .docx
docx_doc <- system.file("docs/Yasmine_Interview_Transcript.docx",
package = "textreadr")
read_document(docx_doc)
## .txt
txt_doc <- system.file('docs/textreadr_creed.txt', package = "textreadr")
read_document(txt_doc)
## Not run:
# doc_doc <- system.file("docs/Yasmine_Interview_Transcript.doc",
# package = "textreadr")
# read_document(doc_doc)
# ## End(Not run)
Run the code above in your browser using DataLab