Slider Text Input Widget
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)
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.