Удалите фильтры столбцов в Shiny DT Datatable - PullRequest
Новая
       7

Удалите фильтры столбцов в Shiny DT Datatable

0 голосов
/ 05 ноября 2019

Я хотел бы скрыть фильтры столбцов в Shiny DT, но я не могу: enter image description here

, вот мой подход: 

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)

1 Ответ

2 голосов
/ 05 ноября 2019

Вы можете скрыть / удалить фильтры, указав аргумент 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"
)
...