Shiny框架selectizeInput空选项不显示问题求助

你用的allowEmptyOption、showEmptyOptionInDropdown、emptyOptionLabel这几个参数并不是selectize.js（Shiny的selectizeInput基于该库）的官方配置项，所以代码里加了也不会生效，这就是空选项不显示的原因。

下面是修正后的代码，完全满足你的需求：默认显示自定义字符串、下拉框里有清空选择的选项、选中项可单独删除、未选任何选项时不执行过滤：

require(shiny)

ui <- fluidPage(
    shiny::selectizeInput(
        inputId = "letters", 
        label = "Restrict to Letters:",
        # 手动添加自定义空选项，值设为空字符串
        choices = c("(all letters)" = "", letters), 
        # 默认选中空选项，确保初始显示自定义字符串
        selected = "",
        multiple = TRUE,
        options = list(
            # 添加移除按钮插件，让选中的选项可以单独删除
            plugins = list("remove_button"),
            # 当所有选项都被删除时，显示的占位符文本
            placeholder = "(all letters)",
            # 初始化时如果没有选中项，自动选中空选项
            onInitialize = I('function() {
                if (!this.getValue().length) {
                    this.setValue("");
                }
            }'),
            # 禁止用户手动创建新选项
            create = FALSE
        )
    )
)

server <- function(input, output) {
    # 示例过滤逻辑：根据选中的字母处理数据
    observe({
        selected_letters <- input$letters
        if (length(selected_letters) == 0 || selected_letters == "") {
            # 未选中有效选项，不执行过滤
            message("显示全部数据")
        } else {
            # 选中了有效字母，执行过滤
            message("过滤后显示字母：", paste(selected_letters, collapse = ", "))
        }
    })
}

shinyApp(ui = ui, server = server)

关键改动说明 #

• 添加自定义空选项：在choices开头加入"(all letters)" = ""，让下拉框里直接显示这个选项，对应的值为空字符串，方便后续判断是否需要过滤。
• 默认选中空选项：设置selected = ""，确保页面加载时默认显示自定义字符串。
• 移除按钮插件：通过plugins = list("remove_button")给每个选中的选项添加删除按钮，用户可以单独清空某个选择，也可以全部删除回到初始状态。
• 占位符与初始化逻辑：placeholder确保所有选项被删除时显示自定义文本，onInitialize函数处理页面加载时的选中状态，避免初始时显示空白。

内容的提问来源于stack exchange，提问作者Karsten W.