有没有办法在没有光泽的DT :: datatable()中生成“全选”按钮?

时间:2019-10-09 11:28:03

标签: r dt

我正试图在我的DT :: datatable()中添加一个selectNone按钮,以取消选择表(https://datatables.net/reference/button/selectNone)中所有选定的项目。

我尝试实现它,但是没有用:

library(DT)
datatable(iris,
          extensions = 'Buttons',
          options = list(
            dom = 'Bfrtip',
            buttons = list(
              "copy",
              list(
                extend = "select_none",
                text = 'Select none',
                action = DT::JS("function () {",
                                "table.rows().deselect();",
                                "}")
              )
            )
          )
)

1 个答案:

答案 0 :(得分:1)

这有效:

library(DT)
datatable(iris,
          extensions = c("Buttons", "Select"),
          options = list(
            dom = 'Bfrtip',
            select = TRUE, 
            buttons = list(
              "copy", "selectNone"
            )
          )
)

如果要更改按钮的标签:

datatable(iris,
          extensions = c("Buttons", "Select"),
          options = list(
            dom = 'Bfrtip',
            select = TRUE, 
            buttons = list(
              "copy",
              list(
                extend = "selectNone",
                text = "Select none"
              )
            )
          )
)