Резюме столбца в datatable (из пакета DT)

Есть ли возможность добавить сводку к R-версии datatable (предоставляемой пакетом DT), как в этом примере?

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

javascript,r,datatable,dt,

6

Ответов: 1


0

Сначала вам нужно добавить нижний колонтитул к вашему datatable (используя параметр контейнера ), а затем вставить код javascript, который вы связали в функции footerCallback (в параметре options для datatable).

Вот пример с наборами данных 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)

введите описание изображения здесь

JavaScript, г, DataTable, дт,
Похожие вопросы