R Shiny中如何实现selectInput支持用户自定义输入新增选项

原生selectInput默认不支持用户新增自定义选项，直接使用Shiny自带的selectizeInput配合简单参数配置即可实现需求，无需额外安装第三方扩展包。

完整可运行代码 #

library(shiny)
ui <- fluidPage(
    titlePanel("Select or add Data"),
    sidebarLayout(
        sidebarPanel(
            selectizeInput(
                inputId = "selectedregion",
                label = "Select Region",
                choices = c("North", "East", "West"),
                multiple = FALSE,
                # *核心配置：开启自定义新增选项功能*
                options = list(
                    create = TRUE,
                    createOnBlur = TRUE,
                    placeholder = "可选择预设选项或输入自定义值"
                )
            )
        ),
        mainPanel(
            # 调试用输出，正式环境可删除
            verbatimTextOutput("value_check")
        )
    )
)
server <- function(input, output) {
    # 调试：实时输出当前选中/输入的值
    output$value_check <- renderPrint({
        paste("当前选中值：", input$selectedregion)
    })

    # 对接数据库存储逻辑：直接读取input$selectedregion即可
    # 无论用户选择预设选项，还是输入自定义值（比如South），都会以字符串格式返回
    # 在这里直接调用你写好的数据库写入函数，传入input$selectedregion作为参数即可
}

shinyApp(ui = ui, server = server)

效果说明 #

• 点击下拉框可直接选择预设的North、East、West三个选项，和原有selectInput使用体验完全一致
• 直接输入列表中不存在的内容（比如South）时，下拉框会自动弹出新增提示，选中后即可将输入内容作为提交值
• 效果参考：
  • 预设选项下拉状态：
    
  • 自定义值输入状态：
    

可选扩展配置 #

• 如果需要支持多选+批量添加自定义值，将multiple参数设置为TRUE即可
• 如果需要永久保留用户新增的选项（后续打开应用的用户也能看到之前添加的值），可以在用户提交自定义值时，将新值同步存入存储选项的数据库/配置表，再通过updateSelectizeInput动态更新下拉选项列表
• 如果需要对用户输入的自定义值做格式校验（比如禁止特殊字符、限制长度），可以在server端添加监听事件，对不符合规则的输入弹出提示并重置即可

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