Eu tenho quase mil artigos de periódicos em pdf em uma pasta. Preciso enviar uma mensagem de texto com os resumos de todos os artigos de toda a pasta. Agora estou fazendo o seguinte:

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)

Por isso, estou convertendo um arquivo pdf em um arquivo .txt e, em seguida, copiando o resumo em outro arquivo .txt e compilando-o manualmente. Este trabalho é problemático.

Como posso ler todos os artigos individuais da pasta e convertê-los em arquivo .txt que contém apenas o resumo de cada artigo. Isso pode ser feito limitando o conteúdo entre RESUMO e INTRODUÇÃO em cada artigo; mas não sou capaz de fazê-lo. Qualquer ajuda é apreciada.