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