在闪亮的R中添加dataTables插件

Question

我试图在我的应用程序中使用API​​数据表qazxsw poi插件但没有成功。以下应用程序有效：

sum()

请注意，js代码对象

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))

工作，但我想重写它：

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);
                  }"

但是我无法上传插件，这段代码也应该有用。

谢谢

Answer 1

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

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

• 排序 自然
• 过滤 searchHighlight

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