如何将selectizeGroupUI的过滤器初始化为各选项的第一个值？

你遇到的直接修改input[["my-filters-model"]]报错，是因为Shiny的reactive input是只读的，必须用官方提供的更新函数修改组件状态。针对你的需求，我们可以通过监听pickerInput的变化，自动提取对应过滤数据中每个字段的第一个选项，再用updateSelectizeInput更新selectizeGroup内的各个过滤器。

修改后的完整代码 #

if (interactive()) {
  
  library(shiny)
  library(shinyWidgets)
  library(DT)
  
  data("mpg", package = "ggplot2")
  
  ui <- fluidPage(
    fluidRow(
      column(
        width = 10, offset = 1,
        tags$h3("Filter data with selectize group"),
        panel(
          pickerInput(
            inputId = "car_select",
            choices = unique(mpg$manufacturer),
            options = list(
              `live-search` = TRUE,
              title = "None selected"
            )
          ),
          selectizeGroupUI(
            id = "my-filters",
            params = list(
              manufacturer = list(inputId = "manufacturer", title = "Manufacturer:"),
              model = list(inputId = "model", title = "Model:"),
              trans = list(inputId = "trans", title = "Trans:"),
              class = list(inputId = "class", title = "Class:")
            )
          ),
          status = "primary"
        ),
        DT::dataTableOutput(outputId = "table")
      )
    )
  )
  
  server <- function(input, output, session) {
    
    mpg_filter <- reactive({
      subset(mpg, manufacturer %in% input$car_select)
    })
    
    res_mod <- callModule(
      module = selectizeGroupServer,
      id = "my-filters",
      data = mpg_filter,
      vars = c("manufacturer", "model", "trans", "class")
    )
    
    # 监听car_select变化，自动选中各过滤器第一个选项
    observeEvent(input$car_select, {
      req(mpg_filter())
      filtered_data <- mpg_filter()
      
      # 更新Manufacturer过滤器
      first_manu <- unique(filtered_data$manufacturer)[1]
      updateSelectizeInput(
        session = session,
        inputId = "my-filters-manufacturer",
        selected = first_manu
      )
      
      # 更新Model过滤器
      first_model <- unique(filtered_data$model)[1]
      updateSelectizeInput(
        session = session,
        inputId = "my-filters-model",
        selected = first_model
      )
      
      # 更新Trans过滤器
      first_trans <- unique(filtered_data$trans)[1]
      updateSelectizeInput(
        session = session,
        inputId = "my-filters-trans",
        selected = first_trans
      )
      
      # 更新Class过滤器
      first_class <- unique(filtered_data$class)[1]
      updateSelectizeInput(
        session = session,
        inputId = "my-filters-class",
        selected = first_class
      )
    }, ignoreInit = FALSE) # ignoreInit=FALSE确保初始加载时也会执行
    
    output$table <- DT::renderDataTable({
      req(res_mod())
      res_mod()
    })
  }
  
  shinyApp(ui, server)
}

关键说明 #

• 不能直接修改input：Shiny的reactive input是只读对象，必须使用updateSelectizeInput这类官方更新函数修改组件选中状态
• 模块内组件的inputId：selectizeGroup模块生成的组件inputId格式为模块id-原inputId，比如模块id是my-filters，则Manufacturer的inputId是my-filters-manufacturer
• 依赖保证：用req(mpg_filter())确保过滤后的数据已生成，避免空值报错
• 初始化执行：设置ignoreInit = FALSE，确保页面加载时若car_select有默认值，也会自动触发选中操作

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