如何在Shiny中下载Sankey plot

install.packages("shiny")

library(shiny)

ui <- fluidPage(
  # 在这里添加您的Shiny UI组件
)

server <- function(input, output) {
  # 在这里添加您的Shiny服务器逻辑
}

shinyApp(ui, server)

ui <- fluidPage(
  downloadButton("downloadPlot", "下载Sankey plot"),
  # 其他Shiny UI组件
)

server <- function(input, output) {
  output$plot <- renderPlot({
    # 在这里生成Sankey plot的代码
  })
  
  output$downloadPlot <- downloadHandler(
    filename = "sankey_plot.png",
    content = function(file) {
      # 将Sankey plot保存为PNG文件
      png(file)
      plot(output$plot())
      dev.off()
    }
  )
}