R shiny 分组和取消分组表并在分组时显示计数

这里是一个示例，其中通过编辑对应的innerHTML将每个类别的计数写入折叠的行组.您可以通过将以下JS添加到您的回调中来实现此功能.

table.on('init', () => $('#my_table .dtrg-group').each(function(i, obj) {
    var grpcount = $(this).nextUntil('.dtrg-group').length.toString();
    this.innerHTML = this.innerHTML.replace('</th>', ', count: ' + grpcount + '</th>');
}));"

library(shiny)
library(DT)

ui <- fluidPage(# Application title
    titlePanel("Collapse/Expand table"),
    mainPanel(DTOutput("my_table")))

callback_js <- JS(
    "table.on('click', 'tr.dtrg-group', function () {",
    "  var rowsCollapse = $(this).nextUntil('.dtrg-group');",
    "  $(rowsCollapse).toggleClass('hidden');",
    "});",
    "table.one('init', () => $('#my_table .dtrg-group').trigger('click'))",
    "table.on('init', () => $('#my_table .dtrg-group').each(function(i, obj) {",
    "    var grpcount = $(this).nextUntil('.dtrg-group').length.toString();",
    "    this.innerHTML = this.innerHTML.replace('</th>', ', count: ' + grpcount + '</th>');",
    "}));"
)

server <- function(input, output) {
    output$my_table <- DT::renderDT({
        datatable(
            mtcars[1:15, 1:5],
            extensions = 'RowGroup',
            options = list(
                rowGroup = list(dataSrc = 2),
                pageLength = 20
            ),
            callback = callback_js,
            selection = 'none'
        )
    })
}

# Run the application
shinyApp(ui = ui, server = server)