使用闪亮的 renderDataTable 扩展按钮的图标答案

【问题标题】：Using icons for shiny renderDataTable extension buttons使用闪亮的 renderDataTable 扩展按钮的图标
【发布时间】：2019-09-19 17:30:47
【问题描述】：

我在闪亮的应用程序中使用 renderDataTable 来创建数据表。我进一步使用服务器端的“选项”来添加扩展按钮，例如复制、保存、PDF 和 CSV。我想在屏幕上显示图标而不是按钮

这是我在服务器端的代码：

    output$table.summary<-renderDataTable({
      # some data to create a datatable ...  
      ,
      server = FALSE,
      extensions = c("Buttons"), 
      options = list(dom = 'Bfrtip',
                 buttons = c('copy', 'csv', 'excel', 'pdf', 'print'),
                 scrollX = TRUE)
      )

上面的代码在屏幕上显示了选项下列出的每个操作的按钮（例如，复制、csv 等）；但是，我想使用图标而不是按钮。

【问题讨论】：

你试过这个吗：stackoverflow.com/questions/44841346/…？
不幸的是，这行不通。该帖子中的解决方案是在您创建操作按钮然后尝试为其使用图标时。在这里，按钮会自动创建为应用程序服务器端的 renderDataTable 函数的一部分。

标签： r shiny

【解决方案1】：

你可以像这样为按钮添加图标：

library(DT)

ui <- basicPage(
  h2("DataTable"),
  DT::dataTableOutput("mytable")
)

server <- function(input, output) {
  output$mytable = DT::renderDataTable({
    mtcars}, 
    extensions = c("Buttons"),
    options = list(dom = 'Bfrtip',
                   buttons = list(list(extend = "excel", text = '<span class="glyphicon glyphicon-th"></span>'), 
                                  list(extend = "csv", text = '<span class="glyphicon glyphicon-download-alt"></span>')),
                   scrollX = TRUE)
  )
}

shinyApp(ui, server)

这会导致：

【讨论】：

非常感谢！您能否向我指出有关您在此处提出的建议的某种文档？我想更好地理解文本类。例如，我应该如何为 pdf 按钮或替代 Excel 图标形状编码。谢谢！