Constructs a slider widget with characters instead of numeric values.
sliderTextInput( inputId, label, choices, selected = NULL, animate = FALSE, grid = FALSE, hide_min_max = FALSE, from_fixed = FALSE, to_fixed = FALSE, from_min = NULL, from_max = NULL, to_min = NULL, to_max = NULL, force_edges = FALSE, width = NULL, pre = NULL, post = NULL, dragRange = TRUE )
inputId | The |
---|---|
label | Display label for the control, or |
choices | Character vector to select a value from. |
selected | The initially selected value, if length > 1, create a range slider. |
animate | TRUE to show simple animation controls with default settings, for more details see |
grid | Logical, show or hide ticks marks. |
hide_min_max | Hides min and max labels. |
from_fixed | Fix position of left (or single) handle. |
to_fixed | Fix position of right handle. |
from_min | Set minimum limit for left handle. |
from_max | Set the maximum limit for left handle. |
to_min | Set minimum limit for right handle. |
to_max | Set the maximum limit for right handle. |
force_edges | Slider will be always inside it's container. |
width | The width of the input, e.g. |
pre | A prefix string to put in front of the value. |
post | A suffix string to put after the value. |
dragRange | See the same argument in |
The value retrieved server-side is a character vector.
updateSliderTextInput to update value server-side.
if (interactive()) { library("shiny") library("shinyWidgets") ui <- fluidPage( br(), sliderTextInput( inputId = "mySliderText", label = "Month range slider:", choices = month.name, selected = month.name[c(4, 7)] ), verbatimTextOutput(outputId = "result") ) server <- function(input, output, session) { output$result <- renderPrint(str(input$mySliderText)) } shinyApp(ui = ui, server = server) }