从 R Shiny 数据表中提取过滤器

我有一个DT数据表 https://rstudio.github.io/DT/在 R Shiny 中，我通过设置启用了列过滤filter="top" within renderDT()。我现在想要提取用户应用的过滤器，以便可以将它们保存在服务器端变量中，并在例如数据库更新时重新应用它们，需要更新表。

这是使用 Shiny Dashboard 的 MWE：

library(shiny)           #  Shiny web app
library(shinydashboard)  #  Dashboard framework for Shiny
library(plotly)          #  Plotly interactive plots
library(DT)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    fluidRow(column(12, DTOutput("table")))
  )
)

server <- function(input, output, session) {
  fileData <- reactiveFileReader(1000, session, 'test.csv', read.csv)
  output$table <- renderDT(fileData(), filter = "top")
}

shinyApp(ui, server)

重申一下，我想将过滤器保存为（例如，用户可以从其中一个过滤器框中选择一系列数值或特定因子）input$变量，以便我可以在服务器端使用它们。

我认为最简单的方法就是添加

options = list(stateSave = TRUE)

在 - 的里面renderDT()功能。然后，在server，可以随时访问表的状态input$<tableID>_state（我的桌子就叫“桌子”，所以这变成了input$table_state:

observeEvent(input$table_state, {
  str(input$table_state)
})

那么整个解决方案就是：

library(shiny)
library(shinydashboard)
library(plotly)
library(DT)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    box(DTOutput("table"))
  )
)

server <- function(input, output, session) {
  fileData <- reactiveFileReader(1000, session, 'www/test.csv', read.csv)
  output$table <- renderDT(fileData(), filter = "top",
    options = list(stateSave = TRUE))

  observeEvent(input$table_state, {
    str(input$table_state)
  })

}

shinyApp(ui, server)

RStudio 控制台中的示例输出：

List of 6
 $ time   : num 1.54e+12
 $ start  : int 0
 $ length : int 10
 $ order  : list()
 $ search :List of 4
  ..$ search         : chr ""
  ..$ smart          : logi TRUE
  ..$ regex          : logi FALSE
  ..$ caseInsensitive: logi TRUE
 $ columns:List of 5
  ..$ :List of 2
  .. ..$ visible: logi TRUE
  .. ..$ search :List of 4
  .. .. ..$ search         : chr ""
  .. .. ..$ smart          : logi TRUE
  .. .. ..$ regex          : logi FALSE
  .. .. ..$ caseInsensitive: logi TRUE
  ..$ :List of 2
  .. ..$ visible: logi TRUE
  .. ..$ search :List of 4
  .. .. ..$ search         : chr "[\"0\"]"
  .. .. ..$ smart          : logi TRUE
  .. .. ..$ regex          : logi FALSE
  .. .. ..$ caseInsensitive: logi TRUE
  ..$ :List of 2
  .. ..$ visible: logi TRUE
  .. ..$ search :List of 4
  .. .. ..$ search         : chr "[\"8\"]"
  .. .. ..$ smart          : logi TRUE
  .. .. ..$ regex          : logi FALSE
  .. .. ..$ caseInsensitive: logi TRUE
  ..$ :List of 2
  .. ..$ visible: logi TRUE
  .. ..$ search :List of 4
  .. .. ..$ search         : chr ""
  .. .. ..$ smart          : logi TRUE
  .. .. ..$ regex          : logi FALSE
  .. .. ..$ caseInsensitive: logi TRUE
  ..$ :List of 2
  .. ..$ visible: logi TRUE
  .. ..$ search :List of 4
  .. .. ..$ search         : chr ""
  .. .. ..$ smart          : logi TRUE
  .. .. ..$ regex          : logi FALSE
  .. .. ..$ caseInsensitive: logi TRUE

请注意search显示应用于每列的过滤器的列表。

Bonus

对于超简单的过滤提取，请使用input$table_search_columns https://rstudio.github.io/DT/shiny。这给出了与使用相同的结果sapply:

sapply(input$table_state$columns, function(x) x$search$search)

这会给类似的东西

[1] ""        "[\"0\"]" "[\"8\"]" ""        ""      

对于上面的例子。