DT R 闪亮 - 添加 header 边框

Question

我想在 Shiny App 中为 DataTable 输出的 header 添加上边框，以便它遵循您在典型期刊文章中看到的格式。所需 table 格式的示例： desired format

这是我的立场：

 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'});}")

我可以更改 header 列的其他方面，例如字体大小，但 none 的边框调用函数。我对 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)
          )
)

DT R 闪亮 - 添加 header 边框

DT R Shiny - Add header border

r

shiny

dt