r - 如何对整个文件夹中的所有文件运行相同的命令并导出大量文本文件？

Question

我想对整个文件夹中的所有 pdf 文档运行相同的命令。这是从同一文件夹中的每个文件中提取一些内容并将它们写入多个文本文件。结构看起来像这样。

file1_text <- readtext("folder/file1.pdf", 
                       encoding = "UTF-8")
file1_text1 <- file1_text[1,2]
John <- str_extract_all(file1_text1,"John.*?hello")
writeLines(paste(unlist(John),collapse=""),con="file1John.txt")
Peter <- str_extract_all(file1_text1,"Peter.*?good morning")
writeLines(paste(unlist(Peter),collapse=""),con="file1Peter.txt")

假设文件夹内有3个文件，分别是file1、file 2、file3。John 和 Peter 对于这三个文件中的每一个都应该有各自的 txt 文件输出。我想使用以下名称输出 txt 文件。

file1John.txt

file1Peter.txt

file2John.txt

file2Peter.txt

file3John.txt

file3Peter.txt

文件的名称必须不同，并且可以通过如上所述的不同名称来识别。请问我该如何处理（例如通过编写循环）？抱歉，我对循环不太熟悉。

非常感谢。

标签： rloopsfiletext