Использование иконок для блестящих кнопок расширения 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)

Что приводит к: