Переименовать столбцы в Shiny dashboard datatable

Question

У меня есть datatable в моем блестящем приложении. По умолчанию имена столбцов являются именами столбцов набора данных. Я хочу изменить имена столбцов на дисплее, не касаясь самого набора данных.

Я нашел 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

Вы можете использовать colnames в renderDataTable. Что-то вроде:

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'), 
       ) 
) 
) 

Название может работать с columnDefs. Я не уверен.