selectInput3 {editData}

Create a side-by-side selectInput

Description

Create a side-by-side selectInput

Usage

selectInput3(..., width = 100)

Arguments

...

arguments to be passed to selectInput

width

The width of the input in pixel

Examples

library(shiny)
# Only run examples in interactive R sessions
if (interactive()) {
  ui <- fluidPage(
         selectInput3("sex", "sex", choices=c("Male","Female")),
         selectInput3("smoking", "smokingStatus", choices=c("Never","Ex-smoker","Smoker"))
    )
    server <- function(input, output) {

    }
    shinyApp(ui, server)
}