R闪亮- Wordcloud2断裂downloadButton

Question

我想使用wordcloud和wordcloud2包创建几个字云。我可以为wordcloud包创建的wordcloud创建一个下载，但是一旦呈现一个wordcloud2-wordcloud，下载按钮就会中断(只允许下载.html而不是.png)。

我添加了一个例子来再现它：

library("shiny")
library("wordcloud")
library("wordcloud2")
library("tm")

ui <- fluidPage(plotOutput("plot1"), downloadButton('plot1download'))

server <- function(input, output, session) {
  output$plot1 <- renderPlot({
    wordcloud(data(crude))
  })
  output$plot2 <- renderWordcloud2({
    wordcloud2(demoFreq)
  })
  output$plot1download <- downloadHandler(
    filename = function() {
      paste('wordcloud', '.png', sep='')
    },
    content = function(file) {
      device <- function(..., width, height) grDevices::png(...)
      ggsave(file, plot = wordcloud(data(crude)), device = device)
    }
  )
}

shinyApp(ui, server)

上面的代码可以工作，但是如果我添加了另一个绘图(plotOutput("plot2"))，它就会中断：

library("shiny")
library("wordcloud")
library("wordcloud2")
library("tm")

ui <- fluidPage(plotOutput("plot1"), downloadButton('plot1download'), wordcloud2Output("plot2"))

server <- function(input, output, session) {
  output$plot1 <- renderPlot({
    wordcloud(data(crude))
  })
  output$plot2 <- renderWordcloud2({
    wordcloud2(demoFreq)
  })
  output$plot1download <- downloadHandler(
    filename = function() {
      paste('wordcloud', '.png', sep='')
    },
    content = function(file) {
      device <- function(..., width, height) grDevices::png(...)
      ggsave(file, plot = wordcloud(data(crude)), device = device)
    }
  )
}

shinyApp(ui, server)

有人知道为什么会发生这种情况，以及如何解决这个问题吗？

Answer 1

这似乎是wordcloud2的CRAN版本中的一个bug。安装从GitHub到remotes::install_github("lchiffon/wordcloud2")的开发版本以获得修复。