Question

让我们假设我在目录中存储的pdf文件很少，我想一次读取所有这些pdf文件，并提取所有包含特定关键字的句子（在本例中为“ provisions”），而不是手动打开每个文件并寻找该关键字。

我已经尝试读取文件，但是如何使R遍历每个pdf文件来搜索该关键字并输出这些句子？这是我写的一小段内容：

library(pdftools)
files <- list.files("filepath",pattern = "pdf$", full.names = TRUE)
comb <- lapply(files, pdf_text)

出于文件参考目的，pdf文件的链接为：

<https://www.supremecourt.gov/opinions/14pdf/13-1314_3ea4.pdf> 
<https://www.supremecourt.gov/opinions/14pdf/14-7955_aplc.pdf>
<https://www.supremecourt.gov/opinions/14pdf/14-46_bqmc.pdf>

我创建了一个目录并将pdf文件保存在其中。

Answer 1

问题的更新：我找到了可以通过以下代码实现的解决方案：

install.packages("textreadr")
install.packages("tidyverse")
install.packages("pdfsearch")
library(textreadr)
library(tidyverse)
library(pdfsearch)

dirct <- directory_path
result <- keyword_directory(dirct, 
                            keyword = 'input_the_keyword_you_want_to_extract',
                            surround_lines = 0, full_names = TRUE)
head(result$line_text, n = 20)

一次读取多个pdf文件，并使用R提取包含关键字的句子

1 个答案: