使用 Shiny DT 的持久列过滤器

Question

我正在尝试调整 this method 以捕获 DT 的列搜索词响应，并在 table 由于其反应性数据对象更新而刷新时重新应用它们。我想不出实现这一目标的正确公式。可重现的例子：

require(shiny)
require(dplyr)
require(stringr)
require(DT)

d = tibble(sentence = sentences, chars = nchar(sentence), grp = sample(LETTERS, length(sentences), replace = TRUE))
default_search = ''

ui <- fluidPage(
  selectInput("grp", 'group', choices = LETTERS, selected = NULL),
  DTOutput("data_tbl")
)

server <- function(input, output, session) {
  
  r = reactiveValues(group = NULL, lines = NULL, search_columns = NULL)
  
  proxy <- dataTableProxy('data_tbl')
  
  observeEvent(input$grp, {
    r$data = d %>% filter(grp == input$grp)
  })
  
  output$data_tbl <- renderDT(filter = "top", {
    r$data %>% select(-grp)
  }, options = list(stateSave = TRUE))
  
  # catch column search terms
  observeEvent(input$data_tbl_search_columns, {
    if(is.null(input$data_tbl_search_columns)) return()
    if(input$data_tbl_search_columns[1] != '') {
      proxy %>% updateSearch(keywords = list(global = default_search, columns = c('', isolate(input$data_tbl_search_columns))))
    }
  })
  
}

shinyApp(ui, server)

预期的结果是：

用户在 “句子” 字段中添加搜索过滤器，例如“这”。 table 过滤匹配记录。
用户更改 grp 选择以更改数据。 table 刷新，但 (i) 搜索词保留在过滤器 window 中，并且 (ii) table 被相应地过滤。

我得到了一些坚持，但结果是错误的。搜索中省略了过滤词 window。感谢任何帮助。

Answer 1

诀窍在于您的 observeEvent 取决于不断变化的数据，而不是列搜索词。我还添加了存储全局搜索词的功能。

require(shiny)
require(dplyr)
require(stringr)
require(DT)

d = tibble(sentence = sentences, chars = nchar(sentence), grp = sample(LETTERS, length(sentences), replace = TRUE))
default_search = ''

ui <- fluidPage(
  selectInput("grp", 'group', choices = LETTERS, selected = NULL),
  DTOutput("data_tbl")
)

server <- function(input, output, session) {
  
  r = reactiveValues(group = NULL, lines = NULL, search_columns = NULL)
  
  proxy <- dataTableProxy('data_tbl')
  
  observeEvent(input$grp, {
    r$data = d %>% filter(grp == input$grp)
  })
  
  output$data_tbl <- renderDT(filter = "top", {
    r$data %>% select(-grp)
  })
  
  # catch column search terms
  observeEvent(r$data, {

    if(is.null(input$data_tbl_search_columns)) return()
    if(input$data_tbl_search_columns[1] != '') {
      proxy %>% updateSearch(keywords = list(global = isolate(input$data_tbl_search),
                                             columns = c("", isolate(input$data_tbl_search_columns))))
    }
  })
  
}

shinyApp(ui, server)

我不确定这是否是所需的行为，在您的 if 条件下，第二个过滤器不会被存储。至少在这个 reprex 中你实际上不需要 reactiveValues 但可以将数据直接存储在 reactive 中，这样你就可以节省一个观察者。

使用 Shiny DT 的持久列过滤器

Persistent column filters with Shiny DT

r

shiny

dt