Shiny downloadHandler 不保存 PNG 文件

我的下载功能可以正确执行所有操作，当“另存为”屏幕出现时，会出现我指定的文件名。当我单击“保存”时，窗口关闭，但没有保存任何文件......

相同的绘图在应用程序中运行良好，唯一的问题是我似乎无法将其保存到 PNG 文件。

我在笔记本电脑上运行 Shine 应用程序并使用 RStudio。

这是我的代码的一些摘录。

ui.R

downloadButton('downloadSMemPlot', 'Download Graph')


server.R

'#draw membersip plot
s.MemPlotInput <- reactive({

'#some code to get data

s.MemPlot <- ggplot() + 
 geom_density(aes(x=Age, fill = Years), data=s.ben, alpha = 0.5) + 
 ggtitle("Density of beneficiary ages") + 
 theme_igray() + 
 theme(plot.title = element_text(lineheight=.8, face="bold")) +
 xlab("Age in full years") + ylab("Density")+
 scale_fill_hue()
})

output$s.memplot <- renderPlot({
  print(s.MemPlotInput())
})

'#download membership plot  
output$downloadSMemPlot <- downloadHandler(
  filename = "MembershipPlot.png",
  content = function(file) {
    png(file, type='cairo')
    print(s.MemPlotInput())
    dev.off()
  },
  contentType = 'application/png'
)

You want

contentType = 'image/png'

not

contentType = 'application/png'

虽然我不认为这是问题所在。您是在 RStudio 的预览窗格中还是在外部浏览器中运行它？我在使用预览窗格时下载时遇到了同样的问题，但它在我的浏览器上运行良好。