在Shiny中将Total / Subtotal添加到DataTable的底部

Question

我希望能够在下面创建的数据框的底部添加一个Total / Subtotal，显示为DataTable。我希望在应用的每个DataTable过滤器时更新Total / Subtotal。假设用户过滤前10条记录，我希望总数计算前10条记录的总和，或者如果用户过滤20条记录，我希望总数反映20条记录的总和，依此类推。

通过将新行绑定到现有数据帧以执行所需的计算，我想到了在 R 中实现此目的的方法。但我想知道是否有一种通过DataTables选项实现这一目标的简单方法。使用页脚回调功能与this example类似的内容。

另外，请点击here和here以解决类似问题。

 #Load required packages

require(shiny)

#Create a dataframe
df <- data.frame(random=1:25)

server <- function(input,output,session){

    #Display df using DataTable and apply desired options
    output$display <- renderDataTable({df})
}

ui <- shinyUI(fluidPage(

    #Add a title
    h1('Testing TableTools'),

        mainPanel(
           #Display results
           dataTableOutput('display')
                 )      


))

shinyApp(ui = ui, server = server)

Answer 1

以下是如何执行给定页面的SubTotal的示例。要获得总数，您可以预先计算它，然后可能#[\w-]++将其输入JS输出？

'/#(?>[\w-]+)(?<!#hashtag|#DoNotRemoveThis)(?=(?:\s+#[\w-]+)*\s*$)/ui'