在R shiny中更改plot下载绘图的尺寸

library(shiny)

ui <- fluidPage(
  plotOutput("myPlot", width = "500px", height = "400px"),
  
  downloadButton("downloadPlot", "Download Plot")
)

server <- function(input, output) {
  output$myPlot <- renderPlot({
    # 绘制你的图形
    plot(x = 1:10, y = 1:10, type = "l")
  })
  
  output$downloadPlot <- downloadHandler(
    filename = function() {
      "my_plot.png"
    },
    content = function(file) {
      # 保存图形到文件
      png(file)
      plot(x = 1:10, y = 1:10, type = "l")
      dev.off()
    }
  )
}

shinyApp(ui, server)