在Shiny中下载图形

library(shiny)

ui <- fluidPage(
  titlePanel("下载图形示例"),
  sidebarLayout(
    sidebarPanel(
      # 添加用户输入控件，例如选择图形类型、设置参数等
    ),
    mainPanel(
      plotOutput("plot"),
      downloadButton("download", "下载图形")
    )
  )
)

server <- function(input, output) {
  # 生成图形的代码，根据用户输入生成相应的图形
  output$plot <- renderPlot({
    # 生成图形的代码
    # 例如：plot(x, y, type = input$type)
  })
  
  # 定义下载处理程序
  output$download <- downloadHandler(
    filename = function() {
      # 定义下载文件的文件名
      # 例如：paste("plot", input$type, ".png", sep = "")
    },
    content = function(file) {
      # 保存图形文件到指定路径
      # 例如：ggsave(file, plot = output$plot, type = "png")
    }
  )
}

shinyApp(ui, server)