如何在Shiny中基于selectizeInput输入动态过滤并更新选项？

背景 #

我拥有一个包含27000行股票代码的大型列表，希望将其作为Shiny应用中selectizeInput()的选项。由于列表规模较大，我在updateSelectizeInput()中使用了server = TRUE参数。

目标 #

希望选项列表仅在用户向selectizeInput()中输入字符串后才加载/渲染，返回所有以输入字符开头的股票代码，避免一次性加载全部27000行数据。要以input$ticker作为观测对象触发过滤逻辑，且无需使用特定按钮。

之前的尝试问题 #

• 带按钮的方案：可实现类似行为，但需手动点击按钮触发，无法在输入时自动搜索，代码存在冗余。
• 观测input$ticker的方案：尝试通过观测输入触发过滤并更新选项，但出现循环故障，应用过早求值。
• 一次性加载方案：仅通过上传按钮加载选项，但未生效。

解决方案 #

核心是利用Selectize的服务器端搜索回调机制，无需手动观测输入，即可实现实时过滤，同时避免循环问题。

关键实现要点 #

1. 初始化selectizeInput时设置choices = NULL，不预先加载任何选项。
2. 使用updateSelectizeInput的choices参数传入一个动态过滤函数，该函数会在用户输入搜索词时自动被调用，返回匹配的结果。
3. 配置合理的搜索延迟，减少服务器请求频率，优化性能。

完整可运行代码 #

library(shiny)
library(bs4Dash)

# 模拟27000行左右的股票代码列表
tickers <- rep(rownames(mtcars), 850)

ui <- fluidPage(
  fluidRow(
    box(
      selectizeInput(
        inputId = "ticker",
        label = "Ticker:",
        choices = NULL,  # 初始不加载选项
        selected = NULL,
        options = list(
          placeholder = "e.g AAPL",
          create = TRUE,
          maxOptions = 50L,
          # 设置搜索延迟，避免频繁请求服务器
          searchDelay = 300
        )
      ),
      id = "tickerBox",
      closable = FALSE,
      maximizable = FALSE,
      width = 12,
      height = "250px",
      solidHeader = FALSE,
      collapsible = FALSE
    )
  )
)

server <- function(input, output, session){
  
  # 配置server-side selectize，传入动态过滤函数
  updateSelectizeInput(
    session = session,
    inputId = "ticker",
    choices = function(search_term) {
      # 空搜索词时返回空列表，避免一次性加载全部数据
      if (is.null(search_term) || search_term == "") {
        return(NULL)
      }
      # 大小写不敏感的前缀匹配
      tickers[startsWith(tolower(tickers), tolower(search_term))]
    },
    server = TRUE
  )
  
}

shinyApp(ui = ui, server = server)

代码说明 #

• 动态过滤函数：当用户输入搜索词时，Selectize会自动调用该函数，search_term参数即为当前输入内容，函数内部返回匹配的股票代码。
• 空搜索词处理：用户未输入内容时返回空列表，彻底避免一次性加载全部27000条数据。
• 大小写兼容：通过tolower()统一转换大小写，确保搜索匹配不受大小写影响。
• 搜索延迟：searchDelay = 300设置300毫秒延迟，减少短时间内的重复请求，提升应用响应速度。

之前方案的问题原因 #

1. 循环故障：观测input$ticker并调用updateSelectizeInput时，更新操作会再次触发input$ticker的变化，形成无限循环。
2. 非实时反馈：带按钮的方案依赖手动触发，无法实现输入时的即时搜索体验。
3. 性能瓶颈：一次性加载全部数据会导致页面加载缓慢，甚至出现卡顿。

内容的提问来源于stack exchange，提问作者JJ Fantini