在闪亮的R中添加dataTables插件
Posted
tags:
篇首语：本文由小常识网(cha138.com)小编为大家整理，主要介绍了在闪亮的R中添加dataTables插件相关的知识，希望对你有一定的参考价值。
我试图在我的应用程序中使用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);
}"
但是我无法上传插件，这段代码也应该有用。
谢谢
根据documentation，documentation仅支持两个DT插件：
目前这些插件已集成到DT中：
- 排序 自然
- 过滤 searchHighlight
看起来DataTables插件不包含在sum()中。如果您希望添加DT插件，则doucmentation声明您可以使用Github issues提交功能请求。
以上是关于在闪亮的R中添加dataTables插件的主要内容，如果未能解决你的问题，请参考以下文章
在闪亮应用程序的 DT::datatable 中添加、删除和编辑行
如何将我的 selectInput 链接到我的 DataTable 以根据选择更新表？ （这是R闪亮）
闪亮仪表板中 DT::datatable 中的因子下拉过滤器不起作用