Загрузите объект 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)