Mixing
GrandTotal in DT Shiny with dynamic column quantity
up vote
0
down vote
favorite
1
How to add total row in DT in Shiny app like in example
I exlplored some topic here, but how to add total in Mean_price column, it's calculate total Turnover / total Qty
How to add total if column quantity in DT dynamicaly changed?
r shiny dt
edited 2 days ago
Yihui Xie
19.7k11100275
asked 2 days ago
Qwery Walter
11
New contributor
Qwery Walter is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
add a comment |
up vote
0
down vote
favorite
1
How to add total row in DT in Shiny app like in example
I exlplored some topic here, but how to add total in Mean_price column, it's calculate total Turnover / total Qty
How to add total if column quantity in DT dynamicaly changed?
r shiny dt
edited 2 days ago
Yihui Xie
19.7k11100275
asked 2 days ago
Qwery Walter
11
New contributor
Qwery Walter is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
add a comment |
up vote
0
down vote
favorite
1
up vote
0
down vote
favorite
1
1
How to add total row in DT in Shiny app like in example
I exlplored some topic here, but how to add total in Mean_price column, it's calculate total Turnover / total Qty
How to add total if column quantity in DT dynamicaly changed?
r shiny dt
edited 2 days ago
Yihui Xie
19.7k11100275
asked 2 days ago
Qwery Walter
11
New contributor
Qwery Walter is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
How to add total row in DT in Shiny app like in example
I exlplored some topic here, but how to add total in Mean_price column, it's calculate total Turnover / total Qty
How to add total if column quantity in DT dynamicaly changed?
r shiny dt
r shiny dt
edited 2 days ago
Yihui Xie
19.7k11100275
asked 2 days ago
Qwery Walter
11
New contributor
Qwery Walter is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
edited 2 days ago
Yihui Xie
19.7k11100275
asked 2 days ago
Qwery Walter
11
New contributor
Qwery Walter is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
edited 2 days ago
Yihui Xie
19.7k11100275
edited 2 days ago
Yihui Xie
19.7k11100275
edited 2 days ago
Yihui Xie
19.7k11100275
19.7k11100275
asked 2 days ago
Qwery Walter
11
New contributor
Qwery Walter is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
asked 2 days ago
Qwery Walter
11
asked 2 days ago
Qwery Walter
11
11
New contributor
Qwery Walter is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
New contributor
Qwery Walter is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
Qwery Walter is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.
add a comment |
add a comment |
1 Answer
1
active
oldest
votes
up vote
1
down vote
Welcome to SO!
Here is a solution using library(data.table):
library(data.table)
library(DT)
ui <- basicPage(
h2("Grand total"),
DT::dataTableOutput("mytable")
)
server <- function(input, output) {
DT <- data.table (Product = paste("Item", seq(10)), Turnover = round(runif(10, 1000, 3000)), Qty=round(runif(10, 100, 120)), Mean_price=round(runif(10, 10, 30), digits = 2))
totalDT <- as.data.table(c(Product = "Total", DT[, lapply(.SD, sum, na.rm=TRUE), .SDcols=c("Turnover", "Qty")]))
totalDT[, "Mean_price" := round(Turnover/Qty, digits = 2)]
myContainer = htmltools::withTags(table(
tableHeader(DT),
tableFooter(as.character(totalDT))
))
output$mytable = DT::renderDataTable({
DT::datatable(DT, options = list(pageLength = nrow(DT)), rownames = FALSE, container = myContainer)
})
}
shinyApp(ui, server)
See this for row specific styling.
Edit, after further specification of the desired output (footer):
you don't need a callback-function to create a footer, please see this.
answered 2 days ago
ismirsehregal
61718
Sorry, I mean how use js to make grand total line below the DT like this topic stackoverflow.com/questions/49135787/…
– Qwery Walter
2 days ago
I updated my answer accordingly, please check.
– ismirsehregal
2 days ago
add a comment |
1 Answer
1
active
oldest
votes
1 Answer
1
active
oldest
votes
active
oldest
votes
active
oldest
votes
up vote
1
down vote
Welcome to SO!
Here is a solution using library(data.table):
library(data.table)
library(DT)
ui <- basicPage(
h2("Grand total"),
DT::dataTableOutput("mytable")
)
server <- function(input, output) {
DT <- data.table (Product = paste("Item", seq(10)), Turnover = round(runif(10, 1000, 3000)), Qty=round(runif(10, 100, 120)), Mean_price=round(runif(10, 10, 30), digits = 2))
totalDT <- as.data.table(c(Product = "Total", DT[, lapply(.SD, sum, na.rm=TRUE), .SDcols=c("Turnover", "Qty")]))
totalDT[, "Mean_price" := round(Turnover/Qty, digits = 2)]
myContainer = htmltools::withTags(table(
tableHeader(DT),
tableFooter(as.character(totalDT))
))
output$mytable = DT::renderDataTable({
DT::datatable(DT, options = list(pageLength = nrow(DT)), rownames = FALSE, container = myContainer)
})
}
shinyApp(ui, server)
See this for row specific styling.
Edit, after further specification of the desired output (footer):
you don't need a callback-function to create a footer, please see this.
answered 2 days ago
ismirsehregal
61718
Sorry, I mean how use js to make grand total line below the DT like this topic stackoverflow.com/questions/49135787/…
– Qwery Walter
2 days ago
I updated my answer accordingly, please check.
– ismirsehregal
2 days ago
add a comment |
up vote
1
down vote
Welcome to SO!
Here is a solution using library(data.table):
library(data.table)
library(DT)
ui <- basicPage(
h2("Grand total"),
DT::dataTableOutput("mytable")
)
server <- function(input, output) {
DT <- data.table (Product = paste("Item", seq(10)), Turnover = round(runif(10, 1000, 3000)), Qty=round(runif(10, 100, 120)), Mean_price=round(runif(10, 10, 30), digits = 2))
totalDT <- as.data.table(c(Product = "Total", DT[, lapply(.SD, sum, na.rm=TRUE), .SDcols=c("Turnover", "Qty")]))
totalDT[, "Mean_price" := round(Turnover/Qty, digits = 2)]
myContainer = htmltools::withTags(table(
tableHeader(DT),
tableFooter(as.character(totalDT))
))
output$mytable = DT::renderDataTable({
DT::datatable(DT, options = list(pageLength = nrow(DT)), rownames = FALSE, container = myContainer)
})
}
shinyApp(ui, server)
See this for row specific styling.
Edit, after further specification of the desired output (footer):
you don't need a callback-function to create a footer, please see this.
answered 2 days ago
ismirsehregal
61718
Sorry, I mean how use js to make grand total line below the DT like this topic stackoverflow.com/questions/49135787/…
– Qwery Walter
2 days ago
I updated my answer accordingly, please check.
– ismirsehregal
2 days ago
add a comment |
up vote
1
down vote
up vote
1
down vote
Welcome to SO!
Here is a solution using library(data.table):
library(data.table)
library(DT)
ui <- basicPage(
h2("Grand total"),
DT::dataTableOutput("mytable")
)
server <- function(input, output) {
DT <- data.table (Product = paste("Item", seq(10)), Turnover = round(runif(10, 1000, 3000)), Qty=round(runif(10, 100, 120)), Mean_price=round(runif(10, 10, 30), digits = 2))
totalDT <- as.data.table(c(Product = "Total", DT[, lapply(.SD, sum, na.rm=TRUE), .SDcols=c("Turnover", "Qty")]))
totalDT[, "Mean_price" := round(Turnover/Qty, digits = 2)]
myContainer = htmltools::withTags(table(
tableHeader(DT),
tableFooter(as.character(totalDT))
))
output$mytable = DT::renderDataTable({
DT::datatable(DT, options = list(pageLength = nrow(DT)), rownames = FALSE, container = myContainer)
})
}
shinyApp(ui, server)
See this for row specific styling.
Edit, after further specification of the desired output (footer):
you don't need a callback-function to create a footer, please see this.
answered 2 days ago
ismirsehregal
61718
Welcome to SO!
Here is a solution using library(data.table):
library(data.table)
library(DT)
ui <- basicPage(
h2("Grand total"),
DT::dataTableOutput("mytable")
)
server <- function(input, output) {
DT <- data.table (Product = paste("Item", seq(10)), Turnover = round(runif(10, 1000, 3000)), Qty=round(runif(10, 100, 120)), Mean_price=round(runif(10, 10, 30), digits = 2))
totalDT <- as.data.table(c(Product = "Total", DT[, lapply(.SD, sum, na.rm=TRUE), .SDcols=c("Turnover", "Qty")]))
totalDT[, "Mean_price" := round(Turnover/Qty, digits = 2)]
myContainer = htmltools::withTags(table(
tableHeader(DT),
tableFooter(as.character(totalDT))
))
output$mytable = DT::renderDataTable({
DT::datatable(DT, options = list(pageLength = nrow(DT)), rownames = FALSE, container = myContainer)
})
}
shinyApp(ui, server)
See this for row specific styling.
Edit, after further specification of the desired output (footer):
you don't need a callback-function to create a footer, please see this.
answered 2 days ago
ismirsehregal
61718
edited 2 days ago
answered 2 days ago
ismirsehregal
61718
answered 2 days ago
ismirsehregal
61718
answered 2 days ago
ismirsehregal
61718
61718
Sorry, I mean how use js to make grand total line below the DT like this topic stackoverflow.com/questions/49135787/…
– Qwery Walter
2 days ago
I updated my answer accordingly, please check.
– ismirsehregal
2 days ago
add a comment |
Sorry, I mean how use js to make grand total line below the DT like this topic stackoverflow.com/questions/49135787/…
– Qwery Walter
2 days ago
I updated my answer accordingly, please check.
– ismirsehregal
2 days ago
Sorry, I mean how use js to make grand total line below the DT like this topic stackoverflow.com/questions/49135787/…
– Qwery Walter
2 days ago
Sorry, I mean how use js to make grand total line below the DT like this topic stackoverflow.com/questions/49135787/…
– Qwery Walter
2 days ago
I updated my answer accordingly, please check.
– ismirsehregal
2 days ago
I updated my answer accordingly, please check.
– ismirsehregal
2 days ago
add a comment |
Qwery Walter is a new contributor. Be nice, and check out our Code of Conduct.
draft saved
draft discarded
Qwery Walter is a new contributor. Be nice, and check out our Code of Conduct.
Qwery Walter is a new contributor. Be nice, and check out our Code of Conduct.
Qwery Walter is a new contributor. Be nice, and check out our Code of Conduct.
draft saved
draft discarded
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
StackExchange.ready(
function () {
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f53373601%2fgrandtotal-in-dt-shiny-with-dynamic-column-quantity%23new-answer', 'question_page');
}
);
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Sign up or log in
StackExchange.ready(function () {
StackExchange.helpers.onClickDraftSave('#login-link');
});
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Sign up using Google
Sign up using Facebook
Sign up using Email and Password
Post as a guest
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
Required, but never shown
