在 Shiny 中下载和显示 PDF

Question

我正在尝试在 Shinyapps.io 上的应用程序中显示来自网络的一些 PDF。不幸的是，由于混合内容保护（pdf 文件通过 http 提供），使用带有 URL 的 iframe 的标准方法不是一种选择。我认为一个可能的选择是从 url 下载 pdf，然后将它们显示在来自本地文件的 iframe 中，但我无法使用tempfile().

示例应用程序：

ui <- fluidPage(
  sidebarLayout(
      sidebarPanel(
        textInput("url", "add a url"),
        actionButton("button","hit the button"),
        h5("use case - embed a pdf user guide in the app - embed as a local pdf or from web URL")
      ), 
      mainPanel(
        tabsetPanel(
          tabPanel("PDF", 
                   htmlOutput("pdf")
                   )
          )
        )
      )
)

server <- function(input, output, session) {

  observeEvent(input$button, {
    temp <- tempfile(fileext = ".pdf")
    download.file(input$url, temp)

    output$pdf <- renderUI({
      tags$iframe(src=temp)
    })
  })
}

shinyApp(ui, server)

示例pdf：http : //www.pdf995.com/samples/pdf.pdf

当我在浏览器中打开它时，我在浏览器控制台中收到错误消息： Not allowed to load local resource: file:///C:/Users/.../Local/Temp/Rtmp8subWX/file19403a2a2fc8.pdfiframe 所在的面板中没有任何内容。

上传到 Shinyapps.io 的类似尝试也失败了404 Not Found，在 pdf 查看器中显示错误。

我认为这可能是 Shiny/shinyapps.io 如何处理临时文件的问题，但无法弄清楚。谢谢。

Answer 1

您需要在当前目录的子文件夹中以二进制模式下载 PDF，然后调用addResourcePath以允许 Shine 为其提供服务：

  observeEvent(input$button, {
    pdf_folder <- "pdf_folder"
    if(!file.exists(pdf_folder))
      dir.create("pdf_folder")
    temp <- tempfile(fileext = ".pdf", tmpdir = "pdf_folder")
    download.file(input$url, temp, mode = "wb")
    addResourcePath("pdf_folder",pdf_folder)

    output$pdf <- renderUI({
      tags$iframe(src=temp)
    })
  })