使用shinyDataFilter切换数据集后，过滤器输入状态丢失如何解决？

问题说明 #

我开发了一个复杂的Shiny应用，此处已简化至最小示例以展示遇到的问题。
我正在使用shinyDataFilter过滤dataframe，但我有一个dataframe列表作为输入，每个dataframe对应一个过滤器。

原代码 #

library(shiny)
# devtools::install_github("dgkf/shinyDataFilter")
library(shinyDataFilter)

ui <- fluidPage(
  titlePanel("Filter Data Example"),
  selectInput("dataset", "Select Dataset : ", c("df1", "df2")),
  uiOutput("data_filter"),
  dataTableOutput("table1"),
  dataTableOutput("table2")
)

server <- function(input, output, session) {
  list_data <- list(df1 = data.frame(col1 = factor(letters[1:5]), col2 = 1:5), 
      df2 = data.frame(col1 = factor(letters[3:18]), col2 = 3:18, col3 = 1:16))
  
rv <- reactiveValues()
  
  observe({
    rv$rv_child <- purrr::imap(list_data, function(x, y) 
                callModule(shiny_data_filter,paste0("data_filter_",y), data = x))
  })
  
  output$data_filter <- renderUI({
    req(input$dataset)
    nm <- paste0("data_filter_",input$dataset)
    shiny_data_filter_ui(nm)
  }) 
  
  output$table1 <- renderDataTable({
    req(rv$rv_child)
    rv$rv_child$df1()
  })
  
  output$table2 <- renderDataTable({
    req(rv$rv_child)
    rv$rv_child$df2()
  })
}

shinyApp(ui = ui, server = server)

问题复现步骤 #

• 运行上述代码，默认选中第一个数据集。
• 点击“Add Filter”按钮后选择col1并选取若干值；
• 切换下拉框选择df2，再切回df1。

此时table1仍保持之前的过滤状态，但过滤器输入已丢失，这会让用户困惑。目标是显示与过滤后表格对应的过滤器输入，保持两者一致，当用户切回df1时能看到之前选择的输入。

解决方案 #

问题根源在于切换数据集时，原过滤器的UI被移除，重新渲染时会生成初始状态的UI，但模块内部的过滤状态其实还保留着。我们需要为每个数据集的过滤器持久化其配置，并在UI重新渲染时恢复这些配置。

修改后的代码如下：

library(shiny)
# devtools::install_github("dgkf/shinyDataFilter")
library(shinyDataFilter)
library(purrr)

ui <- fluidPage(
  titlePanel("Filter Data Example"),
  selectInput("dataset", "Select Dataset : ", c("df1", "df2")),
  uiOutput("data_filter"),
  dataTableOutput("table1"),
  dataTableOutput("table2")
)

server <- function(input, output, session) {
  list_data <- list(
    df1 = data.frame(col1 = factor(letters[1:5]), col2 = 1:5), 
    df2 = data.frame(col1 = factor(letters[3:18]), col2 = 3:18, col3 = 1:16)
  )
  
  # 存储每个数据集的过滤器配置和过滤后的数据
  filter_states <- reactiveValues(
    df1 = list(config = NULL, data = list_data$df1),
    df2 = list(config = NULL, data = list_data$df2)
  )
  
  # 为每个数据集初始化过滤器模块，绑定配置保存逻辑
  imap(list_data, function(data, dataset_name) {
    callModule(
      shiny_data_filter,
      id = paste0("data_filter_", dataset_name),
      data = data,
      filter_expr = reactive(filter_states[[dataset_name]]$config)
    ) %>% observe({
      # 保存当前过滤器的配置和过滤后的数据
      filter_states[[dataset_name]]$data <- .()
      filter_states[[dataset_name]]$config <- shiny_data_filter_get_expr(session, paste0("data_filter_", dataset_name))
    })
  })
  
  output$data_filter <- renderUI({
    req(input$dataset)
    nm <- paste0("data_filter_", input$dataset)
    # 渲染UI时传入已保存的配置，恢复过滤器状态
    shiny_data_filter_ui(nm, filter_expr = filter_states[[input$dataset]]$config)
  }) 
  
  output$table1 <- renderDataTable({
    filter_states$df1$data
  })
  
  output$table2 <- renderDataTable({
    filter_states$df2$data
  })
}

shinyApp(ui = ui, server = server)

修改说明 #

• 新增filter_states reactiveValues：用于存储每个数据集的过滤器配置和过滤后的数据，实现状态持久化。
• 模块初始化时绑定状态保存：通过observe监听模块的输出，实时保存过滤器的配置（使用shiny_data_filter_get_expr获取当前过滤器表达式）和过滤后的数据。
• 渲染UI时传入保存的配置：调用shiny_data_filter_ui时，传入对应数据集已保存的filter_expr，让UI渲染时直接恢复之前的过滤器状态。

这样切换数据集后再切回时，过滤器的输入状态会和过滤后的数据保持一致，解决用户困惑的问题。

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