使用图标显示闪亮的renderDataTable扩展按钮

Question

我在闪亮的应用程序中使用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等）下列出的每个操作的按钮；但是，我想使用图标代替按钮。

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

这将导致：