剧情：下载png按钮不起作用

Question

我正在使用带有闪亮（v.0.13.2）的图表包（v.3.6.0）和下载png按钮不能用于chrome（版本：51.0.2704.103（64位）Mac）苹果浏览器。与Chrome和IE的窗口相同的问题。 我有这两条消息：

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

抱歉，下载你的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))

这是代码

ui.R

library(shiny)
library(plotly)
shinyUI(
fluidPage(    
titlePanel("Barchart"),
sidebarLayout(      
  sidebarPanel(
    selectInput("year", "A-year:", levels(data[,1])),
    hr()),
  mainPanel(
    plotlyOutput("dataPlot")  
  ))))

server.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})
})

提前致谢！