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

时间:2019-05-01 03:41:51

标签: r shiny

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

1 个答案:

答案 0 :(得分:0)

您可以像这样向按钮添加图标:

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)

这将导致: Buttons icons