Как изменить выравнивание столбцов в datatable в r shinydashboard?

Question

Я создаю dataTableOutput в блестящей панели. Все столбцы выравниваются по умолчанию по умолчанию, и я хочу изменить его на выравнивание по центру. Я использую следующий код в моем файле server.R за то же самое:

output$data<- renderDataTable({data()}, 
          options = list(
          columnDefs = list(list(className = 'dt-center', targets = '_all')))) 

Этот код не отображается какой-либо ошибки, но выравнивание не меняется. Я много искал, но единственный способ сделать это - это тот, который я использую. Есть ли способ изменить выравнивание? Любая помощь будет оценена по достоинству. ТИА

Answer 1

В разделе о DT документации helper functions:

Вы можете передать произвольные свойства CSS для formatStyle()

Смотрите ?formatStyle для получения дополнительной информации.

library(DT) 

datatable(diamonds[1:10,1:3]) %>% 
    formatStyle('cut', `text-align` = 'center')