二进制文件读写闪亮

Question

我想构建一个闪亮的应用程序，它将在我的闪亮服务器上使用命令行工具pdfimages将pdf分解为图像。

要开始这个，我需要阅读pdf文件并将其写入目录。当我运行闪亮之外的代码似乎工作。当我用闪亮的方式运行它时，我没有收到任何错误或警告消息，也没有完成执行。

library(shiny)
options(shiny.maxRequestSize=30*1024^2) 


if (interactive()) {

  ui <- fluidPage(
    sidebarLayout(
      sidebarPanel(
        fileInput("file1", "Choose PDF File",
                  accept = ".pdf")
        ),
        tags$hr(),
      ),
      mainPanel(
        tableOutput("contents")
    )
  )

  server <- function(input, output) {
    observe({
      raw <- readBin(input$file1$datapath, what="raw")
      zz <- file("testbin", "wb")
      writeBin(raw, zz)
    })
  }

  shinyApp(ui, server)
}