在wordcloud2上下载shiny.io输出不起作用

Question

我正在尝试从wordcloud2下载shiny.io上一个闪亮的应用程序的输出。

以前，我在浏览器上下载wordcloud2输出时遇到了问题，并设法在这里解决了这个问题，Downloading wordcloud2 output as png/jpg on shiny。

为了比较和清晰起见，我展示了类似的下载功能，它适用于传单地图。我之所以包括传单地图部分，是因为wordcloud 2和传单地图输出都是html，因此我认为它们会有相同的行为。

下面的代码显示

 library(leaflet)
 library(htmlwidgets)
 library(webshot)
 library(shiny)
  library(wordcloud2)

      ui <- fluidPage(
           leafletOutput("map"),
            downloadLink("downloadMap", "Download1"),
            downloadLink("savemap", "Download2"), 
            wordcloud2Output("wordclH2020"),
            downloadLink( "savecloud", "DImage"),
            downloadLink( "saveword", "DImage2")
                  )

      server <- function(input,output) {
         ###### MAP SECTION ##############################
            mapReact <- reactive({
                    leaflet() %>%      
 addTiles('http://{s}.tile.openstreetmap.de/tiles/osmde/{z}/{x}/{y}.png') %>% 
     addCircles(12.5,42,radius=500) %>% addMarkers(12,42,popup="Rome")
      })

         output$map <- renderLeaflet({
                     mapReact()
                          })

     ##### map download 1 works on browser but not shiny.io ###########
        output$downloadMap <- downloadHandler(
                  filename = paste("LeafletMap", '.png', sep=''),
                  content = function(file) {
                  owd <- setwd(tempdir())
                  on.exit(setwd(owd))
              saveWidget(mapReact(), "temp.html", selfcontained = FALSE)
                webshot("temp.html", file = file, cliprect = "viewport")
                         })

        ##### map download 2 works on both browser and  shiny.io ###########
      output$savemap <- downloadHandler(
                filename = "map.html",
                content = function(file){
                saveWidget(
               widget = mapReact()
                , file = file
              )
               }
               )
 ############### WORD CLOUD SECTION ###############################
         wordcl <- reactive ({
            wordcloud2(demoFreq, color = "random-light", backgroundColor = "grey")  })

      output$wordclH2020 <- renderWordcloud2({  wordcl() })

   ##### wordcloud download 1 works on browser but not shiny.io ###########  
             output$savecloud <- downloadHandler(
                   filename = paste("LeafletMap", '.png', sep=''),
                   content = function(file) {
                  owd <- setwd(tempdir())
                  on.exit(setwd(owd))
               saveWidget(wordcl(), "temp.html", selfcontained = FALSE)
           webshot("temp.html", delay =15, file = file, cliprect = "viewport")

             })
  ##### wordcoud download 2 does not work on browser nor shiny.io ###########
    output$saveword <- downloadHandler(
             filename = "word.html",
              content = function(file){
              saveWidget(
              widget = wordcl()
                , file = file
                )
               }
               )

            }

      shinyApp(ui, server)

任何关于如何从托管在wordcloud2上的应用程序下载输出(任何格式)的见解都将不胜感激。

Answer 1

最后，我从这个post中发现，我需要通过将以下代码行添加到库调用部分来安装幻影依赖项

       webshot::install_phantomjs() 
       webshot:::find_phantom()

当我的应用程序在shiny.io上发布时