右键单击保存图像的绘图与Shiny中的downloadHandler不同

Question

我有一个维恩图，我试图保存，所以我创建了一个downloadHandler来保存.png：

 output$downloadPlot <- downloadHandler(
    filename = function() { paste0(input$title, '.png') },
    content = function(file) {
      png(file)
      par(mar=c(5,4,4,2) + 0.1)
      plotInput()
      dev.off()
    }
  )

但是，下载的图像不同于右键单击绘图并选择＆＃34;将图像另存为...＆＃34;在浏览器中打开时。我想重新创建后者的行为，因为它确实出现了更高的分辨率并且没有切断标签，如下所示：

右键单击下载

使用downloadHandler