javascript - 数据表中列的摘要(来自包 DT)

Question

是否有可能向 R 版本的数据表(由 DT 包提供)添加摘要，如本例所示？

https://datatables.net/examples/advanced_init/footer_callback.html

Answer 1

首先，您必须向数据表添加页脚(使用 container 参数)，然后插入您在 footerCallback 函数中链接的 javascript 代码(在 < em>options 数据表的参数)。

这是一个 USArrests 数据集的例子:

sketch <- htmltools::withTags(table(
  tableHeader(c('State', names(USArrests))),
  tableFooter(rep('', 5))
))

#here is a copy of the javascript you had link
opts <- list( 
    footerCallback = JS("function( row, data, start, end, display ) {",
        "var api = this.api(), data;",
        "var intVal = function ( i ) {",
          "return typeof i === 'string' ?",
            "i.replace(/[\\$,]/g, '')*1 :typeof i === 'number' ?",
            "i : 0;};",
        "total = api",
          ".column( 3 )",
          ".data()",
          ".reduce( function (a, b) {",
            " return intVal(a) + intVal(b);",
        " }, 0 );",
        "$( api.column( 3 ).footer() ).html('('+ total +' total)');",
        "}"))

datatable(USArrests, container = sketch, options = opts)