wordcloud2 闪亮的输出创建额外的小部件

Question

使用 wordcloud2 cran 页面（ https://cran.r-project.org/web/packages/wordcloud2/vignettes/wordcloud.html ）上的 rshiny 示例，我在 wordcloud 下方得到了一个额外的小框。每当我使用 wordcloud2 包的 rshiny 功能时就会发生这种情况：

生成这个的代码只是：

library(wordcloud2)
# Global variables can go here
n <- 1

# Define the UI
ui <- bootstrapPage(
  numericInput('size', 'Size of wordcloud', n),
  wordcloud2Output('wordcloud2')
)


# Define the server code
server <- function(input, output) {
  output$wordcloud2 <- renderWordcloud2({
    # wordcloud2(demoFreqC, size=input$size)
    wordcloud2(demoFreq, size=input$size)
  })
}
shinyApp(ui = ui, server = server)

Answer 1

删除该框的一种方法是使用 CSS 样式将元素设置为不显示。只需将此代码添加到 UI 主体即可完成此操作：

tags$head(
      tags$style(HTML('div#wcLabel {display: none;}'))
    )

请注意，这也会终止当您将鼠标悬停在单词上时显示术语频率的滚动功能。就我而言，这是可取的。