Question

我在闪亮的应用程序中使用一个简单的滑块来定义值范围。我注意到你可以非常有用地滑动范围，而无需单独更改起始值和结束值（通过按住滑块的蓝色区域）。但是，当我实现此功能时，用户抱怨此功能并不明显。

为了使这个功能更加明显，我希望光标改为“移动”。当光标悬停在蓝色区域上时，符号e.g.。

这是一些简单的修改代码。

library(shiny)
ui <- fluidPage(
  sliderInput(inputId = 'slider1', 
              label = 'slider input',
              min = 0, max =100, 
              value = c(10,90)
              )  
)
server <- function(input, output) {
}
shinyApp(ui = ui, server = server)

Answer 1

我认为你无法做到这一点。

library(shiny)
ui <- fluidPage(
  tags$style(
    '#test {
    cursor: crosshair;
    color: red;
    }'
  ),

  div(id="test",sliderInput(inputId = 'slider1', 
                            label = 'slider input',
                            min = 0, max =100, 
                            value = c(10,90))
  )  
)
server <- function(input, output) {
}

shinyApp(ui = ui, server = server)

此代码使用滑块更改div内的光标，当您将鼠标悬停在蓝色条上时，光标仍会恢复为特殊的闪亮滑块光标。在闪亮的源代码中，已经有一个为滑块编程的唯一光标，所以我不认为你能够覆盖它，至少不容易。

将鼠标悬停在闪亮的小部件上时光标会发生变化

1 个答案: