如何在更新Shiny DataTable数据时保留顶部过滤器状态？

问题核心在于：每次切换selectInput选择的列时，DT表格会被重新渲染，默认的stateSave = TRUE无法跨不同列配置的表格保留状态——因为表格的列结构发生了变化。我们需要手动保存固定列的过滤器状态，并在表格重新渲染时恢复这些状态。

修改后的完整代码 #

library(shiny)
library(DT)
library(dplyr)
library(jsonlite) # 用于将R中的状态序列化为JS可识别的格式

# UI
ui <- fluidPage(
  titlePanel("Average Data Viewer"),
  sidebarLayout(
    sidebarPanel(
      selectInput("average_type", "Select Average Type:",
                  choices = c("Monthly" = "monthly_average",
                              "Two Month" = "two_month_average",
                              "Three Month" = "three_month_average",
                              "Four Month" = "four_month_average",
                              "Six Month" = "six_month_average",
                              "Year" = "year_average"),
                  selected = "monthly_average")
    ),
    mainPanel(
      DTOutput("catalogTable")
    )
  )
)

# Server
server <- function(input, output, session) {
  # 示例数据框
  cat2 <- data.frame(
    part_number = c("A", "B", "C"),
    quantity = c(500, 6, 34),
    monthly_average = c(100, 150, 200),
    two_month_average = c(120, 160, 220),
    three_month_average = c(130, 170, 230),
    four_month_average = c(140, 180, 240),
    six_month_average = c(160, 200, 260),
    year_average = c(180, 220, 280)
  ) %>%
    mutate(MOH = quantity/monthly_average) # 若需MOH随选中平均类型动态变化，需调整此处逻辑

  # 用于保存表格过滤器状态的响应式变量
  tableFilters <- reactiveVal(list())

  # 监听表格状态变化，保存过滤器配置
  observeEvent(input$catalogTable_state, {
    req(input$catalogTable_state)
    # 提取每列的搜索（过滤器）信息
    filters <- lapply(input$catalogTable_state$columns, function(col) {
      list(search = col$search)
    })
    tableFilters(filters)
  })

  output$catalogTable <- renderDT({
    selected_column <- input$average_type
    # 构建当前要显示的表格数据
    table_data <- cat2[, c("part_number", "quantity", "MOH", selected_column)]

    # 获取已保存的过滤器状态
    saved_filters <- tableFilters()

    datatable(
      table_data,
      filter = 'top',
      options = list(
        stateSave = TRUE,
        # 自定义状态加载回调，恢复固定列的过滤器
        stateLoadCallback = JS(
          "function(settings, callback) {",
          "  var savedFilters = ", toJSON(saved_filters), ";",
          "  // 仅恢复前3列（part_number、quantity、MOH）的过滤器状态",
          "  if(savedFilters.length >= 3) {",
          "    for(var i = 0; i < 3; i++) {",
          "      settings.aoColumns[i].sSearch = savedFilters[i].search.search;",
          "      settings.aoColumns[i].bSearchable = savedFilters[i].search.searchable;",
          "    }",
          "  }",
          "  callback(settings);",
          "}"
        )
      )
    )
  })
}

# 运行应用
shinyApp(ui = ui, server = server)

关键修改说明 #

1. 保存过滤器状态：

   • 通过observeEvent监听DT表格的state输入（input$catalogTable_state），每次过滤器变化时，提取并保存每列的搜索配置到tableFilters响应式变量中。

2. 恢复过滤器状态：

   • 在renderDT中使用stateLoadCallback JavaScript回调函数，将保存的过滤器状态恢复到表格的固定列（前3列：part_number、quantity、MOH）。切换列时仅最后一列变化，固定列的过滤器状态会被保留，新列过滤器则重置为默认空状态。

3. 序列化状态：

   • 借助jsonlite::toJSON将R中的过滤器状态列表转换为JavaScript可识别的格式，确保回调函数能正确读取保存的状态。

额外提示 #

如果需要让MOH值跟随选中的平均类型动态变化（即MOH = quantity / 选中的平均列），可以修改数据处理逻辑：

# 替换原有的mutate语句
cat2 <- cat2 %>%
  mutate(
    across(
      c(monthly_average, two_month_average, three_month_average, four_month_average, six_month_average, year_average),
      ~ quantity / .,
      .names = "MOH_{.col}"
    )
  )

# 在renderDT时选择对应的MOH列
table_data <- cat2[, c("part_number", "quantity", paste0("MOH_", selected_column), selected_column)]

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