r - 仅在下载时隐藏数据表中的行名称

Question

我有以下代码，可让我下载 Excel 中的数据表。下面我隐藏行名称。但是，是否可以仅抑制下载时的行名称？当我在 Shiny 中查看表格时，我仍然希望它们能够出现。

format_fixed_table <- function(input_data, file_name){
  result <- datatable(input_data, extensions = 'Buttons',rownames= FALSE,
                      options = list(dom = 'Bfrtip',
                                     scrollX = TRUE,
                                     lengthMenu = c(10, 20, 50),
                                     pageLength = 10,
                                     buttons = list(list(extend='excel', filename=file_name)),
                             
                      ))
}

Answer 1

行名称列是第 0 列。您可以使用 columnDefs 选项为此列分配一个类，例如rownames，并使用 exportOptions 选项选择没有此类的列，并使用 :not 选择器:

library(DT)

datatable(
  iris[1:5,], 
  extensions = 'Buttons', 
  rownames= TRUE,
  options = list(
    dom = 'Bfrtip',
    columnDefs = list(
      list(
        targets = 0, className = "rownames"
      )
    ),
    buttons = list(
      list(
        extend = 'excel', 
        filename = "XLSXFILE",
        exportOptions = list(
          columns = ":not(.rownames)"
        )
      )
    )
  )
)