r - R Shiny - Wordcloud2 打破下载按钮

Question

我想创建几个 wordcloud，使用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

这似乎是 CRAN 版本中的一个错误wordcloud2。从 GitHub 安装开发版本以 remotes::install_github("lchiffon/wordcloud2") 进行修复。