r - wordcloud2 Shiny 输出创建额外的小部件

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;}'))
    )

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