在闪亮的R中添加dataTables插件

Question

我正在尝试在我的应用中使用API​​的datatTables sum()插件，但没有成功。以下应用程序有效：

library(shiny)
library(DT)

set.seed(2282018)
company <- data.frame(Company = letters[1:10], Units = round(runif(10, 
                                                             1000, 10e6), 0), 
                      Price = scales::dollar(runif(10, 200, 1230)), stringsAsFactors = F)

jsCode <- "function(row, data, start, end, display) {

                  var api = this.api(), data;

                  total = api.column(1).data().reduce( function(a, b) {return a + b}, 0); 

                  $( api.column(1).footer() ).html('Total: ' + total);
                  }"

# UI ---- 
ui <- function(){

  fluidPage(

    sidebarLayout(

      sidebarPanel(numericInput("nums", label = "Num Input", value = 1, min = 1, max = 10)),

      mainPanel(dataTableOutput("mytable"))

    )

  )

}

# server ----
server <- function(input, output, session){

  cont <- htmltools::withTags(table(
    tableHeader(names(company)),tableFooter(names(company))
  ))

  output$mytable <- DT::renderDataTable(  {

    DT::datatable(company,
                  container = cont,
                  caption = tags$caption("Example"), 
                  filter = "none", 
                  rownames = F,
                  options = list(autoWidth = T, 
                                 pageLength = 10, 
                                 scrollCollapse = T,
                                 dom = 'lftp', 
                                 footerCallback = JS(jsCode))
                  )
  }
  )
}

runApp(list(ui = ui, server = server))

请注意，js代码对象jsCode有效，但我想用以下内容重写：

jsCode <- "function(row, data, start, end, display) {

                  var api = this.api(), data;

                  // change below
                  total = api.column(1).data().sum(); 

                  $( api.column(1).footer() ).html('Total: ' + total);
                  }"

如果我正确理解documentation但我无法上传插件，此代码也应该有用。

谢谢

Answer 1

根据documentation，DT仅支持两个DataTables插件：

  

目前这些插件已集成到DT中：

     

  
• 排序      
    
  • natural
    
  
• 过滤      
    
  • searchHighlight
    
  

看起来sum()插件未包含在DT中。如果您希望添加sum()插件，则doucmentation表示您可以使用Github issues提交功能请求。