无法使用Shiny downloadHandler下载png文件，请改为获取“down.html”

Question

我是 Shiny 的新手，正在尝试 downloadHandler。我写了一些简单的代码来下载 png 文件，但它不起作用。当我单击下载按钮时，它显示正在下载“down.html”。任何想法都非常感激！

这是我尝试过的代码。

library(shiny)

ui <- fluidPage(
  downloadButton("down","Download .png")
)

server <- function(input, output, session) {
  
  output$down <- downloadHandler(
   filename = "test.png",
    content = function(file) {
      png(file)
      plot(1:5)
      dev.off
    },
   contentType = "image/png")
}

shinyApp(ui, server)

Answer 1

在你的内容函数中，你需要调用

dev.off()

（即添加括号），然后它就可以正常工作了。