删除 Shiny DT 数据表中的列过滤器

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

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

filter的选项是c("top", "bottom", "none")

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

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

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