仅在下载时禁止数据表中的行名

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选项将 class 分配给该列，例如rownames ，并使用exportOptions选项到 select 没有此 class 的列: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)"
        )
      )
    )
  )
)