DT R-添加标题边框
我想在一个闪亮的应用程序中为DataTable输出的标题添加一个上边框,以便它遵循您在典型期刊文章中看到的格式。所需表格格式示例: 我的立场如下:DT R-添加标题边框,r,shiny,dt,R,Shiny,Dt,我想在一个闪亮的应用程序中为DataTable输出的标题添加一个上边框,以便它遵循您在典型期刊文章中看到的格式。所需表格格式示例: 我的立场如下: output$core_metrics <- renderDataTable(core_metrics(), rownames = F, options = list( dom =
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'});}")
输出$core\u度量库(DT)
头颈回缩
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)
)
)