使 DT 表内过滤器响应子集数据答案

【问题标题】：Make DT in-table filters responsive to subsetted data使 DT 表内过滤器响应子集数据
【发布时间】：2021-07-28 03:34:40
【问题描述】：

我正在创建一个表，我希望用户能够首先使用小部件过滤数据以减少数据集，但仍希望用户能够使用内置的 DT 过滤器来进一步减少数据。但是，当采用这种方法时，我发现内置过滤器仍然包含存在于原始数据集中的值，而这些值实际上并不存在于传递给渲染的数据中。

例如，在这种情况下，表中仅包含“setosa”和“versicolor”，但“virginica”仍然是内置过滤器中的一个选项。

Issue Example Image

有没有办法让内置过滤器只包含输入数据集中存在的选项？

以下是演示该问题的示例代码：

##### Load Libraries #####
library(shiny)
library(shinyWidgets)
library(shinythemes)
library(DT)
library(shinyBS)
library(rgdal)
library(tidyverse)
library(shinyjs)

ui <- fluidPage(
  mainPanel(
    pickerInput("SpeciesPick","Select Species",choices=c("setosa","versicolor","virginica"),multiple=TRUE),
    div(DT::dataTableOutput("Table1"),filter="top")
    
  )
)

server <- function(input, output) {
  
  iris1<-reactive(iris[,])
  iris2<-reactive({iris1()%>%filter(Species%in%input$SpeciesPick)})
  
  #### Datatable 1 #####
  
  output$Table1<-DT::renderDT(
    iris2(),extensions=c('Buttons','Select','Scroller'),
    options=list(
      scrollX=TRUE,
      scrollY=400,
      scroller=TRUE,
      select=list(style='os',items='row'),
      dom='Blfrtip',
      buttons = list(list(extend='selectAll',className='selectAll',
                          text="Select All Visible",
                          action=DT::JS("function () {
                            var table = $('#Table1 table.dataTable').DataTable();
                            table.rows({ search: 'applied'}).deselect();
                            table.rows({ search: 'applied'}).select();
            }")
      ), list(extend='selectNone',className='selectNone',
              text="Deselect All Visible",
              action=DT::JS("function () {
                            var table = $('#Table1 table.dataTable').DataTable();
                            table.rows({ search: 'applied'}).select();
                            table.rows({ search: 'applied'}).deselect();

            }")
      ),'selectAll','selectNone','copy','csv')),
    selection='none',
    class="display nowrap compact",
    filter="top",
    server = FALSE
  )
}

shinyApp(ui = ui, server = server)

【问题讨论】：

标签： r filter shiny reactive dt

【解决方案1】：

那是因为iris$Species是一个因子，DT过滤器使用这个因子的水平，在dplyr过滤后仍然是setosa、virginica和versicolor，即使其中一些有0发生。要删除 0 次出现的级别，请使用 droplevels 函数：

iris2 <- reactive({
  droplevels(iris1() %>% filter(Species %in% input$SpeciesPick))
})

【讨论】：

非常感谢！效果很好，非常感谢您的帮助！