Shiny downloadHandler不保存.png格式

Question

使用downloadHandler下载带有Shiny的.png图表时遇到一些问题，而我没有.pdf的问题。

我想创建一些用户下载数据文件的应用程序，并在其中一个选项卡中创建一些直方图;之后，用户可以选择不同的文件格式来下载图表（例如.png和.pdf）。

当我检查.pdf按钮时，会弹出.pdf文件而没有要求保存文件的窗口;当选中按钮.png时，会弹出一个窗口，但不会保存.png。

在这里，您可以找到我感兴趣的代码：

# --------------------------------------------------------------------
server.r

output$down <- downloadHandler(
      filename = function(){
        paste("Histogram", input$downhist, sep =".")
      },
      content = function(file){
        if(input$downhist == "pdf")
          pdf(file)
        else
          png(file)


        hist(data()$SF)
        dev.off()
      }
    )

# -------------------------------------------------------------------------
ui.r
...
      radioButtons(inputId = "downhist",
                   label = "4. Select the histogram file type",
                   choices = list("png", "pdf")),
...

对于其他人，我的代码工作正常。

我阅读了很多帖子，但我无法找到解决方案。如果需要，我可以发布更多代码。

谢谢！

Answer 1

事实证明，我应该在运行应用时使用Run External。我不知道技术原因，但现在代码就像一个魅力。