Skip to contents

# A selectizeInput customized for named vectors

Source: `R/custom_SelectInput.R`
`vectorSelectInput.Rd`

A selectizeInput customized for named vectors

## Usage

    vectorSelectInput(
      inputId,
      label,
      choices,
      selected = "",
      ...,
      placeholder = "",
      onInitialize
    )

## Arguments

inputId

  passed to `selectizeInput`

label

  passed to `selectizeInput`

choices

  A named `vector` from which fields should be populated

selected

  default selection

...

  passed to `selectizeInput`

placeholder

  passed to `selectizeInput` options

onInitialize

  passed to `selectizeInput` options

## Value

a `selectizeInput` dropdown element

## Examples

    if (shiny::interactive()) {
      shinyApp(
        ui = fluidPage(
          shiny::uiOutput("select"),
          tableOutput("data")
        ),
        server = function(input, output) {
          output$select <- shiny::renderUI({
            vectorSelectInput(
              inputId = "variable", label = "Variable:",
              data = c(
                "Cylinders" = "cyl",
                "Transmission" = "am",
                "Gears" = "gear"
              )
            )
          })

          output$data <- renderTable(
            {
              mtcars[, c("mpg", input$variable), drop = FALSE]
            },
            rownames = TRUE
          )
        }
      )
    }
    #> Error: 'interactive' is not an exported object from 'namespace:shiny'