更改 R 中 DT 库中 tabletools 按钮的颜色

Question

将灰色改为自定义颜色

例如这个：

library(DT)
iris2 = head(iris, 20)
# only show the Copy and Print buttons
datatable(
  iris2,
  extensions = 'Buttons', options = list(
    dom = 'Bfrtip',
    buttons = c('copy', 'print')
  )
)

给我们以下内容：

我想要更改复制和打印按钮的颜色。

我经历过https://datatables.net/extensions/buttons/examples/ 但我无法找到解决方案。

Answer 1

您可以在回调中包含一些 javascript/jquery 来更改按钮的颜色：

datatable(
        iris2,
        callback=JS('$("button.buttons-copy").css("background","red"); 
                    $("button.buttons-print").css("background","green"); 
                    return table;'),
        extensions = 'Buttons', options = list(
                dom = 'Bfrtip',
                buttons = c('copy', 'print')
        )
)

更改 R 中 DT 库中 tabletools 按钮的颜色

Change color of tabletools buttons in DT library in R

r

datatables

dt