반짝이는 위젯으로 커서를 이동하면서 변경

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) 

이 코드는 슬라이더 사업부 내부에 커서를 변경하고 파란색 막대 위로 마우스를 가져 가면 커서는 여전히 특별한 반짝 슬라이더 커서로 돌아갑니다. 반짝이는 소스 코드에는 이미 슬라이더에 대해 고유 한 커서가 프로그래밍되어 있으므로 적어도 그렇게 쉽게 무시할 수는 없을 것이라고 생각합니다.