這是我之前的問題的后續問題，可以在
但是，對表格進行排序將更改列總和，因為總和只是顯示列的總和。我想更改它，以便在表格的多個“頁面”的情況下顯示總和，如果只有一頁，它應該像現在一樣計算它。
uj5u.com熱心網友回復：
server = FALSE在JavaScript 中renderDT：column(5, {search: 'applied'})
library(shiny)
library(DT)
ui <- shinyUI(fluidPage(
h1("Testing TableTools"),
mainPanel(DTOutput("display"))
))
Names <- c("", names(mtcars))
FooterNames <- c(rep("", 5), Names[6], rep("", 6))
server <- function(input, output, session) {
sketch <- htmltools::withTags(table(
tableHeader(Names), tableFooter(FooterNames)
))
opts <- list(
footerCallback = JS(
"function(tfoot, data, start, end, display){
var api = this.api(), data;
var sum1 = api.column(5, {search: 'applied'}).data().reduce(function(a, b) {
return a b;
});
sum1 = Intl.NumberFormat('de-DE', {style: 'currency', currency: 'EUR'}).format(sum1);
$(api.column(5).footer()).html('SubTotal: ' sum1);
}"
)
)
output$display <- renderDT({
datatable(
mtcars,
container = sketch,
extensions = "Buttons",
options = opts
)
}, server = FALSE)
}
shinyApp(ui = ui, server = server)
轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/436159.html
標籤：javascript r 闪亮的 数据表 dt
上一篇：我的html表中的模態不作業或無法打開，只有第一個是模態作業
下一篇：MQTTTLS連接