Veritabanındaki kolonun özeti (DT paketinden)

Question

Bu örnekte olduğu gibi (DT paketi ile sağlanan) datatable'ın R sürümüne özet eklemek mümkün mü?

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

Answer 1

Önce (kabı parametre kullanarak) datatable bir dipnot eklemek ve sonra seçenekten parametre dahilinde footerCallback fonksiyonu (bağlantılı javascript kodu eklemek zorunda datatable).

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) 

: Burada

USArrests verileri ile bir örnektir