Learn R Programming

shinyWidgets (version 0.6.0)

sliderTextInput: Slider Text Input Widget

Description

Constructs a slider widget with characters instead of numeric values.

Usage

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
)

Arguments

inputId

The input slot that will be used to access the value.

label

Display label for the control, or NULL for no label.

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 sliderInput.

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. 400px, or 100%.

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 sliderInput.

Value

The value retrieved server-side is a character vector.

See Also

updateSliderTextInput to update value server-side.

Examples

Run this code
# NOT RUN {
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)

}
# }

Run the code above in your browser using DataLab