我想在Shiny App中为DataTable输出的标题添加顶部边框,以使其遵循您在典型期刊文章中看到的格式。所需表格格式的示例: 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'});}")
我能够更改标题列的其他方面,例如字体大小,但没有任何边框调用功能。我对CSS几乎一无所知,我希望也许我需要更改或添加到表达式的.header()部分吗?谢谢您的时间!