pdftools를 사용하여 PDF의 배치를 텍스트로 변환

Question

데이터 분석을 위해 1000 개의 PDF를 텍스트로 변환하려고합니다. pdftools 패키지를 사용하고 있습니다.

나는 다음과 같은 코드를 사용하여 2 PDF로 변환 할 수 있었다 :

library(pdftools) 
file_list <- list.files('pdf', full.names = TRUE, pattern = 'pdf') 

for(i in 1:length(file_list)){ 
    temp <- pdf_text(file_list[i]) 
    temp <- tolower(temp) 

    file_name = paste(file_list[i], '.txt') 
    sink(file_name) 
    cat(temp) 
    sink() 

} 

하지만 추가 할 때 2 개 이상 나는 다음과 같은 오류 얻을 : 또한

" Error in poppler_pdf_text(loadfile(pdf), opw, upw) : PDF parsing failure." 

를, 내가 부탁을 최종 텍스트 파일

Answer 1

만 "file_name.txt"지금 내가 "file_name.pdf이 .txt"

감사를 얻고있다 할 수