inst/apps/017-select-vs-selectize/ui.R

In rstudio/shinycoreci: CI Testing for shiny

fluidPage(
  br(),
  fluidRow(
    column(4,
      h4("Choose prompt, single"),
      p("Because a choose prompt is present, the selectize version should let
        you clear the selection.")
    ),
    column(4,
      h4("No choose prompt, single"),
      p("Because a choose prompt is not present, the selectize version should
        not let you clear the selection.")
    ),
    column(4,
      h4("No choose prompt, multiple")
    )
  ),
  fluidRow(
    column(4,
      hr(),
      verbatimTextOutput('out1'),
      selectInput('in1', 'Options', c(Choose='', state.name), selectize=FALSE)
    ),
    column(4,
      hr(),
      verbatimTextOutput('out2'),
      selectInput('in2', 'Options', state.name, selectize=FALSE)
    ),
    column(4,
      hr(),
      verbatimTextOutput('out3'),
      selectInput('in3', 'Options', state.name, multiple=TRUE, selectize=FALSE)
    )
  ),
  fluidRow(
    column(4,
      hr(),
      verbatimTextOutput('out4'),
      selectInput('in4', 'Options', c(Choose='', state.name), selectize=TRUE)
    ),
    column(4,
      hr(),
      verbatimTextOutput('out5'),
      selectInput('in5', 'Options', state.name, selectize=TRUE)
    ),
    column(4,
      hr(),
      verbatimTextOutput('out6'),
      selectInput('in6', 'Options', state.name, multiple=TRUE, selectize=TRUE)
    )
  )
)