R Shiny：出口情节为png / jpg

Question

如何从flash应用程序中将plot_ly图像导出为png？我想在动作按钮＆＃39; ExportPlot＆＃39;上导出png或jpg。 （如下所述）。我知道plot_ly解决方案https://plot.ly/r/static-image-export/但是当我读到它时，它需要在plot_ly上创建用户。

我会很感激任何提示/解决方案。

library(shiny)
library(plotly)

ui <- fluidPage(
  actionButton('ExportPlot', 'Export as png'),
  plotlyOutput("plot"),
  verbatimTextOutput("event")
)

server <- function(input, output) {

  # renderPlotly() also understands ggplot2 objects!
  output$plot <- renderPlotly({
    plot_ly(mtcars, x = ~mpg, y = ~wt)
  })

  output$event <- renderPrint({
    d <- event_data("plotly_hover")
    if (is.null(d)) "Hover on a point!" else d
  })
}

shinyApp(ui, server)