Wordcloud2

Question

我想用 Wordcloud 制作一个 Shiny App。但是当鼠标悬停在单词上时，我在更改结果时遇到了问题。我想要的是，当鼠标悬停在单词上时，用户的鼠标会变成指针。

我试着把它放在某种 css-class 中（不知道我做了什么），基于 and here

的回答

#in the body ui
(tags$head(tags$style(HTML('div#wcLabel {cursor: pointer;}')))

但是没用。

这是一个可重现的例子

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

# Define the UI
ui <- bootstrapPage(tags$head(
  tags$style(HTML('div#wcLabel {cursor: pointer;}'))
),
  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)
  })
}
# Return a Shiny app object
shinyApp(ui = ui, server = server)

我知道 wordcloud2() 函数中有一个调用 hoverFunction = ，我想，我必须在其中放一些东西才能实现我的目标，但我不知道什么。

任何帮助将不胜感激。非常感谢！

弗雷德里克

Answer 1

#wcLabel 默认设置了 pointer-events: none;。您可以使用 !important 规则覆盖它。

div#wcLabel {cursor: pointer; pointer-events: auto !important;}

Wordcloud2 - 将鼠标悬停在单词上时将光标更改为指针

Wordcloud2 - change the cursor to pointer, when hover over words

pointers

r

hover

shiny