使用selectizeGroup模块时反应式数据集无法生成表格的问题求助

你的问题核心在于初始无选中值导致反应式数据集为空，以及selectizeGroup模块对空数据集的处理逻辑限制：

1. 你的pickerInput未设置初始选中值，默认返回NULL，导致mpg_filter()初始为空数据集。selectizeGroup模块拿到空数据后无法生成下拉选项，自然无法输出过滤后的表格。
2. 旧版本shinyWidgets对反应式数据的支持可能存在bug，建议先确保安装最新版本：

install.packages("shinyWidgets")

修正后的代码 #

以下提供两种可行的修正方案：

方案一：给pickerInput设置初始选中值 #

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),
            selected = unique(mpg$manufacturer)[1], # 新增初始选中值
            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")
    )

    output$table <- DT::renderDataTable({
      req(res_mod())
      res_mod()
    })
  }

  shinyApp(ui, server)
}

方案二：处理空选中的情况（返回全部数据） #

如果希望支持「无选中时显示全部数据」，可以修改反应式数据集的逻辑：

mpg_filter <- reactive({
  if (is.null(input$car_select)) {
    mpg
  } else {
    subset(mpg, manufacturer %in% input$car_select)
  }
})

验证说明 #

修正后，初始状态下selectizeGroup模块能拿到有效数据并生成下拉选项，选择操作后也能正常过滤并输出表格。

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