Shiny应用中selectInput初始选中值不显示问题排查

你的代码核心问题出在UI层的命名向量选择项和Server层的逻辑处理不匹配，以及启动时observeEvent自动触发导致的错误更新：

• UI中的selectInput使用了命名向量：显示给用户的是带单位的标签（如'Significant wave height [m]'），但后台input$Params1/Params2获取到的是向量对应的值（如'Significant wave height'）。
• Server层的setdiff操作错误地用显示标签字符串匹配input$Params1的值，两者类型不匹配，导致生成的available_choices不符合预期。
• 应用启动时，observeEvent会自动触发（默认ignoreInit=FALSE），此时updateSelectInput把Params2的choices改成了不带命名的显示标签向量，而selected参数传入的是input$Params2的初始值（'Peak period'），这个值不在新的choices列表中，Shiny会默认选中第一个选项，导致预设值失效。

shinyApp(
  ui = fluidPage(
    selectInput("Params1", "Parameter 1",
                choices = param_options,
                selected = 'Significant wave height'),
    selectInput("Params2", "Parameter 2",
                choices = param_options,
                selected = 'Peak period')
  ),
  server = function(input, output, session) {
    # 统一管理选项命名向量，避免重复代码
    param_options <- c(
      'Significant wave height [m]' = 'Significant wave height',
      'Peak period [s]' = 'Peak period', 
      'Wind speed at 10m [m/s]' = 'Wind speed at 10m', 
      'Surface current speed [m/s]' = 'Surface current speed'
    )
    
    observeEvent(input$Params1, {
      # 基于后台存储值过滤选项，保留命名向量结构
      available_choices <- param_options[param_options != input$Params1]
      # 确保选中值在可用选项范围内
      updateSelectInput(session, "Params2", 
                        choices = available_choices, 
                        selected = ifelse(input$Params2 %in% available_choices, input$Params2, names(available_choices)[1]))
    })
    
    observeEvent(input$Params2, {
      available_choices <- param_options[param_options != input$Params2]
      updateSelectInput(session, "Params1", 
                        choices = available_choices, 
                        selected = ifelse(input$Params1 %in% available_choices, input$Params1, names(available_choices)[1]))
    })
  }
)

• 统一选项管理：将选项定义为全局命名向量param_options，保证UI和Server层选项的一致性，避免重复代码。
• 正确过滤逻辑：通过param_options != input$Params1基于后台存储值过滤选项，而非显示标签，确保过滤结果正确。
• 安全选中值处理：用ifelse判断当前选中值是否在可用选项中，避免出现选中值不在选项列表的情况，即使启动时触发observeEvent也能保留预设值。

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