R datatable：隐藏各列的搜索框

Question

我想按列进行搜索，但是对特定列禁用它。

这几乎是我需要的 https://rstudio.github.io/DT/009-searchable.html 但我想隐藏未使用的盒子。

有什么办法吗？

Answer 1

您在类型为search的已禁用输入上使用带有选择器的CSS来隐藏它们。

以下是闪亮应用中的一个示例：

library(shiny)

shinyApp(

  ui = fluidPage(tags$head(tags$style(
    HTML("input[type='search']:disabled {visibility:hidden}")
  )),
  DT::dataTableOutput('tbl')),

  server = function(input, output) {
    iris2 = head(iris, 10)
    output$tbl = DT::renderDataTable(datatable(
      iris2,
      filter = 'top',
      options = list(columnDefs = list(list(
        targets = c(1, 3), searchable = FALSE
      )),
      pageLength = 5)
    ))
  }
)