如何让Shiny的selectizeInput行为与selectInput保持一致？

直接通过自定义JavaScript逻辑，就能让selectizeInput拥有你需要的两个特性：删除条目时应用不响应、空值失焦后恢复之前选中值。以下是完整实现代码：

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(
      6,
      textOutput("selectInputChoice"),
      selectInput(inputId = "selectInputId", label = "selectInput", choices = c("alpha", "beta", "gamma")),
    ),
    column(
      6,
      textOutput("selectizeInputChoice"),
      selectizeInput(inputId = "selectizeInputId", label = "selectizeInput（已修改）", choices = c("alpha", "beta", "gamma")),
      # 自定义JavaScript逻辑
      tags$script(HTML("
        document.addEventListener('shiny:connected', function() {
          // 获取目标selectize实例
          const selectizeInst = $('#selectizeInputId').data('selectize');
          // 初始化记录有效选中值
          let lastValidVal = selectizeInst.getValue();
          
          // 拦截条目删除操作：阻止删除并恢复原选中值
          selectizeInst.on('item_remove', function() {
            event.preventDefault();
            selectizeInst.setValue(lastValidVal);
            return false; // 阻止Shiny触发输入更新
          });
          
          // 失焦时处理空值：恢复之前的有效选中值
          selectizeInst.on('blur', function() {
            const currentVal = selectizeInst.getValue();
            if (!currentVal) {
              selectizeInst.setValue(lastValidVal);
            } else {
              lastValidVal = currentVal; // 更新有效值记录
            }
          });
          
          // 正常选择条目时，更新有效值记录
          selectizeInst.on('change', function(val) {
            if (val) lastValidVal = val;
          });
        });
      "))
    )
  )
)

server <- function(input, output, session) {
  output$selectInputChoice <- renderText({
    paste("selectInput:", input$selectInputId)
  })
  output$selectizeInputChoice <- renderText({
    paste("selectizeInput:", input$selectizeInputId)
  })
}

shinyApp(ui, server)

关键逻辑说明 #

1. shiny:connected事件：确保Shiny完全加载后再获取selectize实例，避免DOM未初始化的问题。
2. lastValidVal变量：始终记录当前有效的选中值，作为空值恢复的依据。
3. item_remove事件拦截：用户删除条目时，直接阻止默认行为并恢复原选中值，同时返回false避免触发Shiny的输入更新。
4. blur事件处理：输入框失焦时检查当前值，为空则恢复有效选中值，否则更新有效值记录。
5. change事件同步：用户正常选择新条目时，同步更新有效值记录，确保后续恢复的是最新选中值。

关于data-nonempty的说明 #

你尝试的options = list(data-nonempty="")无效，是因为selectizeInput的options参数是传递给selectize.js插件的配置，而data-nonempty是Shiny为原生selectInput生成的自定义属性，用于自身的输入验证逻辑，两者不属于同一配置体系，因此无法通过该方式添加。

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