如何使用R语言库循环处理多个PDF文件并提取页眉页脚

Got it, let's adapt your code to handle multiple PDF files efficiently while keeping the header/footer extraction logic intact! Here's a practical, scalable solution:

Your existing code works for a single file, but we need to tweak it to loop through all PDFs in your directory, preserve results for each file/page, and avoid overwriting data mid-process. Here's the revised approach:

library(pdftools)
library(stringr)
library(dplyr)

# Step 1: Grab all PDF files in your working directory (case-insensitive)
pdf_files <- list.files(pattern = "\\.pdf$", ignore.case = TRUE)

# Step 2: Define a reusable function to process one PDF at a time
extract_header_footer <- function(pdf_path) {
  # Read the full text content of the PDF
  pdf_pages <- pdf_text(pdf_path)
  
  # Process each page to extract header/footer
  page_results <- lapply(seq_along(pdf_pages), function(page_num) {
    # Split the page text into individual lines
    page_lines <- str_split(pdf_pages[[page_num]], "\n")[[1]]
    
    # Keep header/footer lines (your original logic: remove lines 5-24)
    # Adjust this range based on your actual PDF layout if needed!
    header_footer <- page_lines[-5:-24]
    
    # Clean up whitespace and combine lines for readability
    cleaned_content <- paste(trimws(header_footer), collapse = " | ")
    
    # Return a data frame row for this page
    data.frame(
      File = basename(pdf_path),
      Page = page_num,
      Header_Footer_Content = cleaned_content,
      stringsAsFactors = FALSE
    )
  })
  
  # Combine all page results for this PDF into a single data frame
  bind_rows(page_results)
}

# Step 3: Run the function on all PDFs and combine results
all_extracted_data <- lapply(pdf_files, extract_header_footer) %>%
  bind_rows()

# View the final results
print(all_extracted_data)

# Optional: Save results to a CSV file for later use
write.csv(all_extracted_data, "pdf_header_footers.csv", row.names = FALSE)

Key Improvements: #

• Batch Processing: Uses lapply to loop through every PDF in your directory automatically.
• Data Preservation: Stores results in a structured data frame with filenames and page numbers, so you don't lose context about where each header/footer came from.
• Flexibility: The line range [-5:-24] is easy to adjust—if your PDFs have different header/footer positions, modify this to target the correct lines (e.g., c(1:3, (length(page_lines)-2):length(page_lines)) to grab the first 3 and last 2 lines).
• Readability: Cleans up extra whitespace and combines lines into a single string per page for easier analysis.

内容的提问来源于stack exchange，提问作者Bharath