从Shiny中的dygraph图导出PNG

Question

我在Shiny app中导出dygraph的PNG时遇到了困难。我一直在this script之后使用the example并将其修改为Shiny。我正在使用shinyjs库将我的dygraph对象传递给客户端。我遇到了以下错误：

未捕获的TypeError：无法在'CanvasRenderingContext2D'上执行'drawImage'：提供的值不是'（HTMLImageElement或HTMLVideoElement或HTMLCanvasElement或ImageBitmap）'

这是一个有希望重复的例子：

ui.R

library(shiny)
library(dygraphs)
library(shinyjs)

js.png <- '
  shinyjs.exportPNG = function(params) {
    var defaultParams = {
      dygraph : null,
      img : null,
      userOptions : null,
    }
    params = shinyjs.getParams(params, defaultParams);  

    var image = document.getElementById(params.img);
    Dygraph.Export.asPNG(params.dygraph, image);
  }
  '

shinyUI(fluidPage(
  useShinyjs(),
  extendShinyjs(text = js.png),
  actionButton('btn', 'Go'),
  includeScript('./www/dygraph-extra.js'),
  dygraphOutput("plot"),
  img(id = 'plot-static')
  )
)

server.R

library(dplyr)
library(xts)

shinyServer(function(input, output) {

  observeEvent(input$btn, {
    js$exportPNG(dygraph = dyplot.global, img = 'plot-static')
  })

  plot.data <- reactive({
    d <- airquality %>%
      mutate(Date = as.Date(paste('1973', Month, Day, sep = '-'))) %>%
      select(Date, Ozone, Temp) %>%
      arrange(Date)
    d.xts <- xts(d[,-1], order.by = d$Date)
  })

  output$plot <- renderDygraph({
    g <- dygraph(plot.data()) %>%
      dyRangeSelector()
    dyplot.global <<- g
    g
  })
})

我是javascript的新手，所以请保持温和。实际的情节和数据涉及得更多，我非常投入到dygraphs中的交互和功能。谢谢。