是否可以持续跟踪滑块的位置, 甚至在拖动完成和释放鼠标单击之前?
最小示例:
(请注意,只有在完成拖动后,才更新滑块值)
library(shiny)
library(shinyWidgets)
shinyApp(
ui = fluidPage(
noUiSliderInput(
inputId = "the_slider", label = NULL,
min = 0, max = 10, step = 1, value = 5,
behaviour = c("snap")
),
textOutput("slider_value")
),
server = function(input, output, session) {
output$slider_value <- renderText(input$the_slider)
}
)
编辑:
最终目标是input$the_slider
的值将不断更新,而不仅仅是释放鼠标之后。
在下面的屏幕快照中,滑块位于 7 上,但是它的值仍为 5 ,因为我尚未释放鼠标。