Shiny中actionButton触发后selectizeInput历史选中项置顶问题求助

问题核心是selectize组件默认会将用户历史选中的选项置顶展示，导致通过actionButton切换选中项时打乱了原本的字母排序。要强制保持选项始终按字母升序排列，只需在selectizeInput中配置自定义排序规则即可。

具体实现步骤 #

在selectizeInput的options参数里添加sortField配置，指定按选项文本（text）进行升序（asc）排序：

selectizeInput(
  inputId = "vehicle",
  label = "Select Vehicle",
  choices = sort(c("Camaro Z28", "Cadillac Fleetwod", "Chrysler Imperial")),
  selected = "Camaro Z28",
  options = list(
    sortField = list(field = "text", direction = "asc")
  )
)

完整示例代码 #

library(shiny)

ui <- fluidPage(
  selectizeInput(
    inputId = "vehicle",
    label = "Select Vehicle",
    choices = sort(c("Camaro Z28", "Cadillac Fleetwod", "Chrysler Imperial")),
    selected = "Camaro Z28",
    options = list(
      sortField = list(field = "text", direction = "asc")
    )
  ),
  actionButton("next_vehicle", "Next Vehicle >")
)

server <- function(input, output, session) {
  observeEvent(input$next_vehicle, {
    vehicles <- sort(c("Camaro Z28", "Cadillac Fleetwod", "Chrysler Imperial"))
    current_idx <- which(vehicles == input$vehicle)
    next_idx <- ifelse(current_idx == length(vehicles), 1, current_idx + 1)
    updateSelectizeInput(session, "vehicle", selected = vehicles[next_idx])
  })
}

shinyApp(ui, server)

原理说明 #

通过sortField配置覆盖selectize的默认排序逻辑，强制组件始终按照选项的文本内容进行升序排列，彻底禁用了“历史选中项置顶”的默认行为，无论通过按钮切换还是手动选择，选项列表都会保持稳定的字母排序。

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