Shiny App在线发布后下载PNG/PDF图表为空问题求助

嗨，我看了你的代码，很快发现了几个导致导出文件为空的小问题，咱们一步步来修正：

问题1：未正确关闭图形设备 #

在downloadHandler的content函数里，你写了dev.off但没有加括号()——这只是引用了这个函数，并没有实际执行它！图形设备不关闭的话，系统没法把绘图内容写入文件，自然就生成空文件了。

问题2：响应式数据的定义方式 #

你把data定义成了普通函数，这在Shiny里不是最佳实践，应该用reactive()来包装，这样它会自动响应输入变化，而且避免重复计算。

问题3：确保绘图的一致性 #

可以把绘图逻辑也封装成一个reactive对象，这样UI显示的图和导出的图是完全一样的，避免两边代码重复。

修改后的完整代码： #

ui.R

library(shiny)
ui <- fluidPage(
  titlePanel("My First Shiny Project"),
  sidebarLayout(
    sidebarPanel(
      selectInput("select","Choose a Dataset", choices = list("trees","pressure"), selected = "pressure"),
      selectInput("format","Choose file format", choices = list("pdf","png"))
    ),
    mainPanel(
      plotOutput("graph")
    )
  ),
  downloadButton("download","Download Here")
)

server.R

library(shiny)
server <- function(input,output){
  # 用reactive包装数据，响应输入变化
  data <- reactive({
    switch(input$select, 
           "trees" = trees, 
           "pressure" = pressure)
  })
  
  # 把绘图逻辑做成reactive，UI和下载共用
  plot_obj <- reactive({
    plot(data())
  })
  
  output$graph <- renderPlot({
    plot_obj()
  })
  
  output$download <- downloadHandler(
    filename = function(){
      paste("data", input$select, input$format, sep = ".")
    },
    content = function(file){
      # 根据选择的格式打开对应设备
      if(input$format == "png"){
        png(file)
      } else if(input$format == "pdf"){
        pdf(file)
      }
      # 绘制图形
      plot_obj()
      # 必须执行dev.off()关闭设备
      dev.off()
    }
  )
}

额外说明： #

• 用reactive()包装数据和绘图后，代码更清晰，也符合Shiny的响应式设计理念。
• 在content里用else if替代两个独立的if，避免同时触发两个设备（虽然这里概率低，但更严谨）。
• 确保dev.off()在绘图完成后执行，这是写入文件的关键步骤。

现在重新运行你的App，导出的文件应该就能正常包含图表内容啦！

内容的提问来源于stack exchange，提问作者Chong Desmond