sliderTextInput | R Documentation |
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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.