Tóm tắt cột trong datatable (từ gói DT)

Question

Có khả năng thêm tóm tắt vào phiên bản R của datatable (được cung cấp bởi gói DT), như trong ví dụ này?

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

Answer 1

Trước tiên, bạn cần phải thêm một chân để DataTable của bạn (sử dụng chứa tham số), và sau đó chèn mã javascript bạn được liên kết trong footerCallback chức năng (trong tùy chọn tham số của datatable).

Dưới đây là một ví dụ với USArrests bộ dữ liệu:

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)