Testing selectizeInput

global.R

n_choices <- 20000
choices <- paste0("choice", 1:n_choices)
names(choices) <- paste(choices, "name")

server.R

shinyServer(function(input, output, session) {


})

ui.R

shinyUI(pageWithSidebar(
  
  
 
  headerPanel(title="Select Input Test"),

  sidebarPanel(
    
    selectizeInput("variable", "Variable:",
                c("Cylinders" = "cyl",
                  "Transmission" = "am",
                  "Gears" = "gear")),
    
  selectizeInput("select", "Select:",  choices = choices)
),
                 


  mainPanel(
  )
  ))