Изменение цвета tabletools кнопок в библиотеке DT в R

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