DT::datatable在shiny应用中的标题导出选项

Question

给出以下的 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中适用的解决方案。

- Roman

Answer 1

这是按钮的 title 选项：

library(shiny)
library(DT)

ui <- fluidPage(
  br(),
  DTOutput("DT")
)

server <- function(input, output) {

  output$DT <- renderDT({
    mtcars %>% 
      datatable(., extensions = 'Buttons',
                options = list(
                  dom = 'Bfrtip',
                  buttons = list(
                    list(
                      extend = "copy", 
                      text = "COPY", 
                      title = NULL
                    )
                  )
                )
      )
  })  
}

shinyApp(ui = ui, server = server)

- Stéphane Laurent