f <- system.file("texts", "pdf", "pdfarchiving.pdf", package = "tm")
pdf <- readPDF(PdftotextOptions = "-layout")(elem = list(uri = substitute(file(f))), load = TRUE, language = "en_US", id = "id1")
meta(pdf)
Run the code above in your browser using DataLab