# NOT RUN {
## .pdf
pdf_doc <- system.file("docs/rl10075oralhistoryst002.pdf",
package = "textreadr")
read_document(pdf_doc)
## .html
html_doc <- system.file("docs/textreadr_creed.html", package = "textreadr")
read_document(html_doc)
## .docx
docx_doc <- system.file("docs/Yasmine_Interview_Transcript.docx",
package = "textreadr")
read_document(docx_doc)
## .doc
doc_doc <- system.file("docs/Yasmine_Interview_Transcript.doc",
package = "textreadr")
read_document(doc_doc)
## .txt
txt_doc <- system.file('docs/textreadr_creed.txt', package = "textreadr")
read_document(txt_doc)
## .pptx
pptx_doc <- system.file('docs/Hello_World.pptx', package = "textreadr")
read_document(pptx_doc)
## .rtf
# }
# NOT RUN {
rtf_doc <- download(
'https://raw.githubusercontent.com/trinker/textreadr/master/inst/docs/trans7.rtf'
)
read_document(rtf_doc)
# }
# NOT RUN {
# }
# NOT RUN {
## URLs
read_document('http://www.talkstats.com/index.php')
# }
Run the code above in your browser using DataLab