DT R Shiny - Добавить границу заголовка

Question

Я хотел бы добавить верхнюю границу к заголовку вывода DataTable в Shiny App, чтобы он соответствовал формату, который вы видите в обычной журнальной статье. Пример желаемого формата таблицы: желаемый формат

Вот где я стою:

 output$core_metrics <- renderDataTable(core_metrics(), rownames = F,
                                       options = list(
                                         dom = 't',
                                         class = 'compact',
                                         columnDefs = list(list(className = 'dt-center', targets = "_all")),
                                         initComplete = JS("function(settings, json) {$(this.api().table().header()).css({
                                                           'border-top' : '5px solid black'});}")

Я могу изменить другие аспекты столбца заголовка, такие как размер шрифта, но ни одна из границ не вызывает функцию. Я почти ничего не знаю о CSS и ожидаю, что, возможно, мне нужно изменить или добавить часть выражения .header ()? Спасибо за ваше время!

Answer 1

library(DT)

headerCallback <- c(
  "function(thead, data, start, end, display){",
  "  $('th', thead).css('border-top', '5px solid black');",
  "}"
)

datatable(iris, rownames = FALSE, 
          options = list(
            headerCallback = JS(headerCallback)
          )
)