在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/，但我找不到解决方案。

- dimitris_ps

---

我没有用R编程过，但你可以使用CSS规则来更改按钮的颜色。例如：https://jsfiddle.net/jevtw2g4/12/ - CMedina

很遗憾，我的CSS知识有限。我不知道如何将其“翻译”成R代码。 - dimitris_ps

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

- NicE

---

这太棒了，谢谢。只是一个旁边的问题，为了更好地理解这个回调逻辑，我该如何实现这个：http://www.w3schools.com/css/tryit.asp?filename=trycss_buttons_animate1 - dimitris_ps

你是在使用Shiny或Markdown文档吗？如果是的话，最好将所有CSS都包含在样式表中的链接中，这样会更容易些。 - NicE

对于那些运行最新版本的软件包的用户，我相信JS已经略有改变，现在的目标是button.buttons-copy和button.buttons-print。 - al-obrien