更改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('$("a.buttons-copy").css("background","red"); 
                    $("a.buttons-print").css("background","green"); 
                    return table;'),
        extensions = 'Buttons', options = list(
                dom = 'Bfrtip',
                buttons = c('copy', 'print')
        )
)