R Shiny中selectizeGroup多数据集过滤异常问题求解

1. 模块ID冲突：服务器端两次调用selectizeGroupServer时使用了同一个ID"m"，Shiny中模块ID必须唯一，后调用的模块会覆盖前一个，导致过滤选项仅加载第二个数据集mergeddata的唯一值。
2. 数据源单一：每个模块仅对应单个数据集，无法同时获取两个数据集的所有唯一值作为过滤选项。

将两个数据集的共同列合并去重，以此作为过滤模块的数据源，确保侧边栏选项包含两个数据集的所有唯一值；同时仅调用一次过滤模块，再用模块输出的过滤条件分别筛选两个原始数据集。

修改后代码 #

UI部分（保持不变） #

selectizeGroupUI(
  id = "m",
  inline = FALSE,
  params = list(
    MEMS_flag = list(inputId = "MEMS_flag", title = "MEMS\\CMOS:"),
    Process_Family = list(inputId = "Process_Family", title = "Technology_Family:"),
    Local_Process_Id = list(inputId = "Local_Process_id", title = "Technology:"),
    Device = list(inputId = "Device", title = "Device:"),
    Customer_Name=list(inputId = "Customer_Name", title = "Customer_Name:")
  )
)

服务器端 #

# 合并两个数据集的共同列并去重，获取所有唯一值
combined_data <- unique(
  rbind(
    mergeddata[, c("Device","MEMS_flag","Process_Family","Local_Process_id","Customer_Name")],
    mergeddata1[, c("Device","MEMS_flag","Process_Family","Local_Process_id","Customer_Name")]
  )
)

# 仅调用一次过滤模块，基于合并后的数据集生成选项
res_mod <- callModule(
  module = selectizeGroupServer,
  id = "m",
  data = combined_data,
  vars = c("Device","MEMS_flag","Process_Family","Local_Process_id","Customer_Name"),
  inline=FALSE
)

# 过滤第一个数据集并渲染表格
output$table <- renderDataTable({
  input$update
  # 用半连接筛选符合条件的行
  semi_join(mergeddata, res_mod(), by = c("Device","MEMS_flag","Process_Family","Local_Process_id","Customer_Name"))
}, options = list(scrollX = TRUE))

# 过滤第二个数据集并渲染表格
output$table2 <- renderDataTable({
  input$update
  semi_join(mergeddata1, res_mod(), by = c("Device","MEMS_flag","Process_Family","Local_Process_id","Customer_Name"))
}, options = list(scrollX = TRUE))

关键说明 #

• combined_data合并了两个数据集的共同列并去重，确保过滤选项包含所有可能的取值。
• 使用semi_join可以高效地根据过滤后的合并数据集，筛选出原始数据集中匹配的行，避免手动编写多个filter条件。
• 仅保留一个过滤模块实例，避免ID冲突，同时保证侧边栏选项对两个表格生效。

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