R: Slider Text Input Widget

sliderTextInput {shinyWidgets} | R Documentation

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

### Examples

    ## 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)

    }

    ## End(Not run)

[Package shinyWidgets version 0.4.3 Index]