在 Shiny 中使用 1,000 多个项目更新 selecInput

Question

我想更新 Shiny 应用程序上的 selectInput 项，该应用程序包含超过 1,000 个项目，但它显然不接受超过 1,000 个。

有没有一种方法可以在用户开始输入时添加更多值或从服务器加载它？服务器参数也不起作用。

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() 可以处理超过 1,000 条记录。