给出以下的 Shiny 应用程序:
library(shiny)
library(tidyverse)
library(DT)
ui <- fluidPage(
br(),
DTOutput("DT")
)
server <- function(input, output) {
output$DT <- renderDataTable({
mtcars %>%
datatable(.,extensions = 'Buttons',
options = list(dom = 'Bfrtip',
exportOptions = list(header = ""),
buttons = c('copy', 'csv', 'excel', 'pdf')))
})
}
shinyApp(ui = ui, server = server)
使用数据表左上角的按钮,可以将完整的表格复制到剪贴板中。
但是,在将内容粘贴到Excel、记事本或其他应用程序时,会出现一个标题,我想要删除它。
我相信可以使用类似于exportOptions = list(header = "")
的方法来删除或更改标题。但不出所料,这并没有起作用。也许可以从这里找到或翻译一个在R/Shiny中适用的解决方案。