f <- system.file("doc", "tm.pdf", package = "tm")
pdf <- readPDF(PdftotextOptions = "-layout")(elem = list(uri = f),
language = "en",
id = "id1")
pdf[1:13]
Run the code above in your browser using DataLab