R Shiny导入多个PDF并使用actionButton逐个查看

library(shiny)
library(pdftools)

ui <- fluidPage(
  fileInput("pdf_files", "选择PDF文件", multiple = TRUE),
  actionButton("next_page", "下一页")
)

server <- function(input, output) {
  observeEvent(input$next_page, {
    pdf_files <- input$pdf_files$datapath
    if (length(pdf_files) > 0) {
      pdf_file <- pdf_files[1]
      pdf_text <- pdf_text(pdf_file)
      # 在这里可以对pdf_text进行处理，如提取文本内容或进行其他操作
      # ...
      # 处理完当前PDF文件后，将其从列表中移除
      pdf_files <- pdf_files[-1]
      updateTextInput(session, "pdf_text_output", value = pdf_text)
      updateFileInput(session, "pdf_files", value = pdf_files)
    }
  })
}