r - 使用 Shiny 中的 1,000 多个项目更新 selectInput

Question

我想在一个有 1,000 多个项目的 Shiny 应用程序上更新一个 selectInput 项目，但它显然不接受超过 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 条记录。