Farbe ändert von tabletools Tasten in DT-Bibliothek in R

Question

statt Grau-Wechsel zu einer benutzerdefinierten Farbe

Zum Beispiel dieses:

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

gibt uns die folgenden:

Was ich möchte, ist die Farbe der Schaltflächen Kopieren und Drucken zu ändern.

Ich bin durch https://datatables.net/extensions/buttons/examples/ gegangen, aber ich bin nicht in der Lage, eine Lösung zu finden.

Answer 1

Sie können einige Javascript/jquery sind die Farben der Tasten in den Rückruf zu ändern:

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