如何仅用原生Shiny编程禁用selectizeInput中的单个选项？

你的代码无法工作的核心原因是：Shiny原生的selectizeInput的choices参数不支持直接传入包含disabled属性的列表结构。

Shiny对choices参数的处理逻辑是将其转换为selectize.js所需的基础选项数据（仅保留文本和值），并不会识别并传递disabled这类自定义属性，因此你设置的'disabled' = c(TRUE, FALSE, FALSE, FALSE, TRUE, TRUE)完全被忽略，自然不会生效。

要在原生Shiny中实现selectize选项禁用，需要借助selectize.js的API，通过自定义JS逻辑来控制选项的禁用状态，以下是两种通用实现方式：

1. 静态初始化时禁用指定选项（UI端实现） #

通过selectizeInput的options参数，利用render.option自定义选项渲染，并通过onInitialize回调添加禁用逻辑：

library(shiny)

YE_Range <- 2020:2025
# 定义需要禁用的年份
disabled_years <- c(2020, 2024, 2025)

ui <- fluidPage(
  selectizeInput(
    inputId = "YE", 
    label = "Year End", 
    choices = YE_Range, 
    multiple = FALSE, 
    options = list(
      placeholder = 'Choose a year end',
      # 自定义选项渲染：给禁用的选项添加disabled类
      render = I('{
        option: function(item, escape) {
          const isDisabled = [2020,2024,2025].includes(item.value);
          return `<div class="${isDisabled ? "disabled" : ""}">${escape(item.text)}</div>`;
        }
      }'),
      # 初始化时设置禁用属性
      onInitialize = I('function() {
        const self = this;
        [2020,2024,2025].forEach(year => {
          const option = self.options[year];
          if(option) option.disabled = true;
        });
        // 刷新选项状态
        self.refreshOptions(false);
      }')
    )
  )
)

server <- function(input, output, session) {}

runApp(list(ui = ui, server = server), launch.browser = TRUE)

2. 动态控制选项禁用状态（Server端实现） #

如果需要根据业务逻辑动态禁用/启用选项，可以通过updateSelectizeInput结合自定义JS消息来实现：

library(shiny)

YE_Range <- 2020:2025

ui <- fluidPage(
  selectizeInput(
    inputId = "YE", 
    label = "Year End", 
    choices = YE_Range, 
    multiple = FALSE, 
    options = list(
      placeholder = 'Choose a year end',
      # 预留接收动态禁用指令的逻辑
      onInitialize = I('function() {
        const self = this;
        Shiny.addCustomMessageHandler("toggleYearDisable", function(message) {
          const year = message.year;
          const isDisabled = message.disable;
          const option = self.options[year];
          if(option) {
            option.disabled = isDisabled;
            // 刷新选项并更新选中状态（如果选中了被禁用的选项则取消）
            self.refreshOptions(false);
            if(isDisabled && self.getValue() == year) self.clear();
          }
        });
      }')
    )
  ),
  actionButton("disable2023", "禁用2023年"),
  actionButton("enable2023", "启用2023年")
)

server <- function(input, output, session) {
  # 点击按钮禁用2023
  observeEvent(input$disable2023, {
    session$sendCustomMessage(
      "toggleYearDisable",
      list(year = 2023, disable = TRUE)
    )
  })
  
  # 点击按钮启用2023
  observeEvent(input$enable2023, {
    session$sendCustomMessage(
      "toggleYearDisable",
      list(year = 2023, disable = FALSE)
    )
  })
}

runApp(list(ui = ui, server = server), launch.browser = TRUE)

• 两种方案均仅依赖原生Shiny和selectize.js（Shiny内置），无需额外包
• 静态方案适合固定禁用规则的场景，动态方案适合需要根据用户交互或数据变化调整禁用状态的场景
• 通过selectize.js的option.disabled属性标记禁用，同时配合自定义CSS类可以让禁用选项视觉上更明显（可自行添加.selectize-dropdown .disabled { color: #ccc; cursor: not-allowed; }这类样式）

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