闪亮的downloadhandeller（）的服务器权限

Question

我正在尝试安装一个闪亮的应用程序，该应用程序可以从googleViz软件包中下载html绘图。该代码可在我的机器上运行，但是当我将其移至服务器时，在测试下载时会收到以下消息...

“所请求的URL被拒绝。请咨询管理员。”

我正在努力弄清楚设置服务器的IT人员需要做什么来解决问题-我对服务器一无所知，而他们对R也一无所知。

我基于以下ui.R

构建了一个小型示例应用here来演示该问题。

library(shiny)
library(googleVis)

# user interface
shinyUI(pageWithSidebar(
    headerPanel("googleVis on Shiny"),
    sidebarPanel(
        selectInput("dataset", label = "Choose a dataset:",
                    choices = c("rock", "pressure", "cars")),
        downloadButton('download_gvis', label = 'Download')
    ),
    mainPanel(
        htmlOutput("view")
    )
))

和server.R

library(googleVis)
library(webshot)

shinyServer(function(input, output) {
  # data set from user 
  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })

  # plot of data set from user
  my_plot <- reactive({
    gvisScatterChart(datasetInput(),
                     options=list(title=paste('Data:',input$dataset)))
  })

  # render plot of data set from user
  output$view <- renderGvis({
    my_plot()
  })

  # download plot of data set from user
  output$download_gvis <- downloadHandler(
    filename = "test.png",
    content = function(file) {
      g <- my_plot()

      # print to html file
      print(g, file = "gg.html")

      # take a webshot of html file and save as png
      webshot(
        url = "gg.html", 
        file = "output.png", 
        delay = 2
      )

      # send output file to downloadHandler
      file.copy("output.png", file)

      # delete files
      file.remove("gg.html")
      file.remove("output.png")
    }
  )
})

我认为代码在服务器脚本中的print(g, file = "gg.html")处中断。 gg.html文件永远不会出现在服务器目录中（在我的本地计算机上，我看到它在RStudio的目录视图中弹出）。