r - 有没有办法在没有闪亮的 DT::datatable() 中生成“选择无”按钮？

Question

我正在尝试在我的 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();",
                                "}")
              )
            )
          )
)

标签： rdt

Answer 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"
              )
            )
          )
)