在闪亮的应用程序中导出数据表的选项

Question

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

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，记事本或任何要删除的标头中时。

我很确定可以使用sth删除或更改标题。与exportOptions = list(header = ""),类似。但这并不奇怪。也许可以找到一种解决方案或将其从here转换为R / Shiny。

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)