重命名闪亮仪表板数据表中的列

Question

我的 Shiny 应用程序中有一个数据表。默认情况下，列名是数据集的列名。 我想更改显示的列名称，而不接触数据集本身。

我找到了 this 文档，这正是我所需要的，但我不确定如何将其转换为 R 语法。

这是我当前渲染表格的方式：

output$score_data_table <- renderDataTable({
    selectedArea_overview_TC()}, 
    options = list(orderClasses = TRUE, 
                   lengthMenu = list(c(15,25,50,100,-1), c('15','25','50','100','All')),
                   pageLength = 15,
                   order=list(1, 'desc'))
)

我尝试以多种方式添加

columnDefs

选项，但没有任何效果。

Answer 1

您可以在renderDataTable中使用colnames。比如：

  output$table1 <- DT::renderDataTable({
     datatable(messages(),
     colnames = c('Type', 'Message', 'Check', 'Entity',   'ID','File'), 
     options = list(pageLength = 50, autoWidth = TRUE,
     columnDefs = list(list(width = '800px', targets = c(2)))),filter='top')})  

Answer 2

我也掉进了同样的陷阱。您实际需要的文档是columns.title。

output$score_data_table <- renderDataTable({
  selectedArea_overview_TC()
  },
  options = list(orderClasses = TRUE,
                 lengthMenu = list(c(15,25,50,100,-1), c('15','25','50','100','All')),
                 pageLength = 15,
                 order=list(1, 'desc')
                 columns = list(
                   list(title = 'newnameforcol1'),
                   NULL, # skip column 2
                   list(title = 'newnameforcol3'),
                 )
  )
)

Title 也可以与 columnDefs 一起使用。我不确定。