| Slider.shinyInput | R Documentation | 
Slider
Slider.shinyInput(inputId, ..., value = defaultValue)
| inputId | the shiny input id | 
| ... | args to pass to element | 
| value | the default value of the element Visit the documentation at https://mui.com/api/Slider/ for more information. | 
library(shiny.mui)
library(shiny)
if (interactive()) {
  shinyApp(
    ui = div(
      Slider.shinyInput("text", value = 5),
      textOutput("textValue")
    ),
    server = function(input, output) {
      output$textValue <- renderText({
        sprintf("Value: %s", input$text)
      })
    }
  )
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.