Обновление selecInput с более чем 1000 элементов в Shiny

Question

Я хочу обновить элемент selectInput в приложении Shiny, добавив более 1000 элементов, но, очевидно, он не принимает более 1000 элементов.

Есть ли способ добавить дополнительные значения или загрузить его с сервера, когда пользователь начнет печатать? Параметр сервера также не работает.

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(
  tags$head(tags$script(src = "message-handler.js")),

   # Application title
   titlePanel("Large selectInput"),

   # Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
         selectInput("Names",
                     "List of Names",
                     choices = c("A")
                     )
      ),
      mainPanel("Empty")
   )
)

# Define server logic required to draw a histogram
server <- function(input, output, session) {
  names <- 1:5000
  observe({
    updateSelectInput(session, "Names", label = "Updated", choices = names, server = TRUE)
  })
  }
# Run the application 
shinyApp(ui = ui, server = server)

Answer 1

selectizeInput () может обрабатывать более 1000 записей.