删除Shiny DT Datatable中的列过滤器

Question

我想在Shiny DT数据表中隐藏列过滤器，但是我不能：

这是我的方法：

library(shiny)
library(DT)

ui <- fluidPage(
  tags$style("#mydatatable thead > tr:nth-child(2) {display:none;}"),
  mainPanel(
    dataTableOutput("mydatatable")
  )
)

server <- function(input, output) {

  output$mydatatable <- DT::renderDataTable(
    datatable(iris, filter = 'top', options = list(
      pageLength = 5, autoWidth = TRUE)
    )
  )

}

shinyApp(ui = ui, server = server)

Answer 1

您可以通过指定filter = "none"函数的DT::datatable参数或作为DT::renderDataTable函数的附加参数来隐藏/删除过滤器。

filter的选项是c("top", "bottom", "none")中的任何一个

output$mydatatable <- DT::renderDataTable({
    datatable(iris, filter = "none")
  })

renderDataTable将数据对象（例如，数据帧）转换为数据表。其他数据表参数（...在参数expr之后传递。有关可能的参数和选项的列表，请查看文档?DT::datatable。

output$mydatatable <- DT::renderDataTable({
    iris
  },
  filter = "none"
)