修改 renderDataTable 中不使用 JS() 的数据表选项

Question

我正在 R Studio 控制台中构建一个示例 Shiny 仪表板。我有一些桌子：

output$summary_table <- DT::renderDataTable(DT::datatable({
    # some code here
})

当这个表格显示出来时，它有分页和搜索框之类的东西。我想删除这些，但文档 (https://datatables.net/reference/option/) 似乎都基于编辑 JS/html，例如

$('#example').dataTable( {
    "paging": false
} );

有没有办法在DT::datatable({}) 内执行此操作？我不知道如何将它与我的 R 代码原样集成？或者它很简单，我只是没有得到预期的用途？

我想删除分页和搜索框。

Answer 1

你可以用这个：

datatable(iris,options=list(bFilter=FALSE, bPaginate=FALSE))

或只显示表格：

datatable(iris,options = list(dom='t',bPaginate=FALSE))

完整示例代码：

library(shiny)
library(DT)

ui= basicPage(dataTableOutput("tab"))

server= function(input, output,session) {

  output$tab <-  DT::renderDataTable({datatable(iris,options=list(bFilter=FALSE, bPaginate=FALSE))})
}

shinyApp(ui, server)