Skip to content

Instantly share code, notes, and snippets.

@pssguy
Created March 5, 2014 00:03
Show Gist options
  • Save pssguy/9358450 to your computer and use it in GitHub Desktop.
Save pssguy/9358450 to your computer and use it in GitHub Desktop.
Testing selectizeInput
n_choices <- 20000
choices <- paste0("choice", 1:n_choices)
names(choices) <- paste(choices, "name")
shinyServer(function(input, output, session) {
})
shinyUI(pageWithSidebar(
headerPanel(title="Select Input Test"),
sidebarPanel(
selectizeInput("variable", "Variable:",
c("Cylinders" = "cyl",
"Transmission" = "am",
"Gears" = "gear")),
selectizeInput("select", "Select:", choices = choices)
),
mainPanel(
)
))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment