通过在浏览器中运行的闪亮应用程序将ggplotly（）对象下载为.png文件。

Question

是否有可能像在浏览器中打开的闪亮应用程序中的ggplotly()对象一样以{.png格式下载ggplot()对象。我发现了一些下载ggplot的方法，但没有下载ggplotly的方法。如果没有办法，那么还有别的选择吗？

library(shiny)
library(plotly)

ui <- fluidPage(
  plotlyOutput("plot"),
  verbatimTextOutput("event"),
  downloadButton("download","Download Plot")
)

server <- function(input, output) {

  # renderPlotly() also understands ggplot2 objects!
    save<-reactive({
      plot_ly(mtcars, x = ~mpg, y = ~wt)

    })
    output$plot <- renderPlotly({
      ggplotly(save())
    })

  output$download <- downloadHandler(
    filename = function() {
      paste("down", ".png", sep="")
    },
    content = function(file) {
      ggsave(file, plot = save())
    }
  ) 
}

shinyApp(ui, server)