R 使用Shining app导出DT:：datatable的标题选项

给定以下闪亮的应用程序：

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)

库（闪亮）
图书馆（tidyverse）
图书馆（DT）
ui这是按钮的
标题
选项：

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)

库（闪亮）
图书馆（DT）
用户界面