在 R Shiny 中将图像设置为光标

Question

有没有办法在将鼠标悬停在按钮上时使用网络图像作为光标？

我试过这样的事情：

tags$head(tags$style(HTML(" .custom {  cursor: url(https://c2.staticflickr.com/2/1907/31794847918_04f9e687e1_b.jpg), auto;
} ")))

这没有效果，我在网上找不到任何其他示例如何在 R shiny 中管理它。

library(shiny)

ui  <- fluidPage(    
  actionButton(inputId = 'messagebutton', label = 'click me')
)

server <- function(input, output, session) {}

shinyApp(ui = ui, server = server)

Answer 1

这个例子对我有用。我认为您的图像不起作用，但我不确定到底是什么。可能太大了。

library(shiny)

csscode <- HTML("
#messagebutton {  
  cursor: url(http://www.javascriptkit.com/ajax.gif), auto;
}
")

ui  <- fluidPage(    
  tags$head(tags$style(csscode)),
  actionButton(inputId = 'messagebutton', label = 'click me')
)

server <- function(input, output, session) {}

shinyApp(ui = ui, server = server)

在 R Shiny 中将图像设置为光标

Set image as cursor in R Shiny

r

url

shiny

mouse-cursor