reactslider
Such a slider would be great for Shiny, it seems however that react-slider-kit might not be it.
# install.packages("remotes")
remotes::install_github("JohnCoene/reactslider")
Example
library(shiny)
library(reactslider)
x <- round(rnorm(200, 50, 5))
ui <- fluidPage(
reactsliderInput("slider", data = x),
verbatimTextOutput("text")
)
server <- function(input, output) {
output$text <- renderPrint({
input$slider
})
}
shinyApp(ui, server)