R plotly:下载png按钮不工作

我使用的是plotly（v.3.6.0）软件包和Shining（v.0.13.2）以及download png按钮，既不适用于chrome（版本：51.0.2704.103（64位）Mac），也不适用于Safari。使用chrome和IE的windows也存在同样的问题。 我有两条信息：

拍摄快照-这可能需要几秒钟的时间

很抱歉，下载您的png时出现问题

这是一个示例数据

    data <- data.frame(x=rep(c('A14','B15','C16'), each = 1, times = 3), y=runif(90, 50, 100),group=rep(c('2014','2015','2016'), each = 1, times= 3))

服务器.R

library(shiny)
library(plotly)
shinyServer(function(input, output) {
output$dataPlot <- renderPlotly({
p <- plot_ly(data, x = input$year, y=y, group=group,type = "bar")
p})
})

库（闪亮）
图书馆（绘本）
shinyServer（功能（输入、输出）{
输出$dataPlot可能给开发版本一个机会？请参阅
library(shiny)
library(plotly)
shinyServer(function(input, output) {
output$dataPlot <- renderPlotly({
p <- plot_ly(data, x = input$year, y=y, group=group,type = "bar")
p})
})