GrandTotal в DT Shiny с динамическим количеством колонок - PullRequest
Новая
       9

GrandTotal в DT Shiny с динамическим количеством колонок

0 голосов
/ 19 ноября 2018

Как добавить итоговую строку в DT в приложении Shiny, как в примере

enter image description here

Я изучил некоторую тему здесь, но как добавить итог в столбце Mean_price, это вычислить общий оборот / общее количество

Как добавить итог, если количество столбцов в DT динамически изменилось?

1 Ответ

0 голосов
/ 19 ноября 2018

Добро пожаловать в SO!

Вот решение, использующее 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)

См. this для определения стиля строки.

Отредактируйте, после уточнения желаемого результата (нижнего колонтитула): вам не нужна функция обратного вызова для создания нижнего колонтитула, см. this .

...