如何在DT表格Buttons扩展的按钮中添加图标？

要给DT表格的Buttons扩展按钮添加图标，你需要把原本的字符串形式按钮定义改为列表形式，通过extend指定按钮类型，text参数传入包含图标HTML标签的内容即可。DT默认集成了Font Awesome图标库，直接用对应的图标类名就能实现。

修改后的完整代码示例 #

library(DT)

dat <- iris

dtable <- datatable(
    dat,
    rownames = TRUE,
    extensions = "Buttons",
    options = 
        list(
            dom = "Bfrtip",
            buttons = list(
              # 带文字的图标按钮
              list(extend = "copy", text = '<i class="fa fa-copy"></i> 复制'),
              list(extend = "csv", text = '<i class="fa fa-file-csv"></i> 导出CSV')
            )
        )
    )

dtable

只显示图标（无文字） #

如果不需要按钮文字，只保留图标，直接去掉text里的文字部分即可：

buttons = list(
  list(extend = "copy", text = '<i class="fa fa-copy"></i>'),
  list(extend = "csv", text = '<i class="fa fa-file-csv"></i>')
)

常用图标类名参考 #

可以根据需求替换Font Awesome的图标类名，比如：

• 复制：fa-copy
• Excel导出：fa-file-excel
• PDF导出：fa-file-pdf
• 打印：fa-print

内容的提问来源于stack exchange，提问作者Stéphane Laurent