有没有办法在 DT::datatable() 中生成 "select none" 按钮而不闪亮？

Question

我正在尝试在我的 DT::datatable() 中添加一个 selectNone 按钮，以取消选择 table (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();",
                                "}")
              )
            )
          )
)

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

有没有办法在 DT::datatable() 中生成 "select none" 按钮而不闪亮？

Is there a way to generate a "select none" Button in a DT::datatable() without shiny?

r

dt