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

Question

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

我发现这个文档正是我需要的，但我不确定如何将它转换为 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 一起使用。我不确定。