僅在下載時禁止數據表中的行名

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)"
        )
      )
    )
  )
)