Tengo cerca de mil artículos de revistas pdf en una carpeta. Necesito enviar un mensaje de texto en los resúmenes de todos los artículos de toda la carpeta. Ahora estoy haciendo lo siguiente:

dest <- "~/A1.pdf"

# set path to pdftotxt.exe and convert pdf to text
exe <- "C:/Program Files (x86)/xpdfbin-win-3.03/bin32/pdftotext.exe"
system(paste("\"", exe, "\" \"", dest, "\"", sep = ""), wait = F)

# get txt-file name and open it
filetxt <- sub(".pdf", ".txt", dest)
shell.exec(filetxt)

Con esto, estoy convirtiendo un archivo pdf en un archivo .txt y luego copiando el resumen en otro archivo .txt y lo compilo manualmente. Este trabajo es problemático.

¿Cómo puedo leer todos los artículos individuales de la carpeta y convertirlos en un archivo .txt que contiene solo el resumen de cada artículo? Se puede hacer limitando el contenido entre RESUMEN e INTRODUCCIÓN en cada artículo; pero no soy capaz de hacerlo Cualquier ayuda es apreciada.