selectInput3: Create a side-by-side selectInput
In editData: 'RStudio' Addin for Editing a 'data.frame'

Create a side-by-side selectInput

1	selectInput3(..., width = 100)

`...`	arguments to be passed to selectInput
`width`	The width of the input in pixel

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