在 R Shiny 中结合 DT::datatable、DT::dataTableProxy 和“SearchPanes”扩展

Question

SearchPanes扩展似乎无法使用DT::dataTableProxy ，因为：

• SearchPanes 需要Select扩展名。
• Select扩展需要DT::renderDT(server = FALSE)选项。
• DT::dataTableProxy在客户端不起作用并抛出 DT 错误。

library(shiny)
library(shinydashboard)
library(tidyverse)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(
    shiny::selectInput("rows", label = "Rows", choices = 1:nrow(mtcars)),
    shiny::actionButton("new", label = "New Data")
  ),
  dashboardBody(DT::dataTableOutput("cars"))
)

server <- function(input, output) { 
  rows <- reactive({ input$rows })
  output$cars <- DT::renderDataTable(server = FALSE, {
    expr = DT::datatable(
      data = mtcars |> head(rows()) 
      #,
      #extensions = c("SearchPanes", "Select", "Buttons"),
      #options = list(
      #  dom = "Btip",
      #  buttons = list("searchPanes")
      #)
    )

  })
  
  dtProxy <- DT::dataTableProxy("cars")
  
  observeEvent(input$new, label = "Observe button proxy update", {
    doubledata <- bind_rows(mtcars, mtcars)
    DT::replaceData(proxy = dtProxy, 
                    data = doubledata,
                    resetPaging = FALSE)
  })
}

shinyApp(ui, server)

使用 server = FALSE 尝试此代码，单击New Data ，您将收到 DT Warning: DataTables warning: table id=DataTables_Table_0 - Invalid JSON response. For more information about this error, please see http://datatables.net/tn/1 DataTables warning: table id=DataTables_Table_0 - Invalid JSON response. For more information about this error, please see http://datatables.net/tn/1

删除server = FALSE和代理运行。

删除注释部分，搜索窗格出现，但没有显示实际的过滤器，并且消息表明如果我们really want to use select extension then set select = 'none' 。

这里有一些参考资料： RStudio DT Extensions Matt Herman Tutorial

Answer 1

我最终做的是仅使用DT::datatableProxy功能，然后为搜索窗格使用自定义按钮。 在此处找到自定义按钮如何在 R Shiny 数据表中添加自定义按钮。 这需要制作一个被第一个无效的新反应，并检查输入是否有任何新值。 然后代理收到过滤后的数据。

也许有一天他们会添加对搜索窗格的支持。

添加对 SearchPanes 扩展的服务器端支持 #877