R shiny DT::datatable 回调，用于折叠行组不使用 semantic.dashboard

Question

我正在尝试在闪亮的仪表板中使用回调来折叠数据表中的行。 我发现如果我使用 shinydashboard 回调有效，但当我使用 semantic.dashboard 库时则无效。

library(stringr)
library(glue)
library(insight)
library(devtools)
library(shiny)
library(shinysky)
library(DT)
library(tidyverse) 
library(shiny.semantic)
library(shinydashboard)
library(semantic.dashboard)

# , color = 'red', inverted = T, show_menu_button = F 
ui <- dashboardPage(dashboardHeader(title = 'hello'),
                    dashboardSidebar(
                      sidebarMenu(menuItem(tabname = "View", text = 'View'))),
                    dashboardBody(tabName = "wishlist",
                                  fluidRow(column(width = 10,
                                                  box(
                                  dataTableOutput("my_tableee"),
                                  width = 8, title = 'Wislist', color ='yellow', collapsible = F))))
  )

server <- function(input, output, session) {
  output$my_tableee <- DT::renderDataTable({
    datatable(
      mtcars,
      extensions = 'RowGroup',
      options = list(rowGroup = list(dataSrc = c(2,11)), pageLength = 20),
      callback = JS(
        "table.on('click', 'tr.dtrg-group', function (level) {",
        "  var rowsCollapse = $(this).nextUntil('.dtrg-group');",
        "  $(rowsCollapse).toggleClass('hidden');",
        "});",
        "table.one('init', () => $('#my_tableee .dtrg-group').trigger('click'))"
      ),
      selection = 'single'
    )
  })
}
# Run the application
shinyApp(ui = ui, server = server)

对于上面的代码，如果我使用 shinydashboard 启动 R 会话，回调将起作用。但是我用 semantic.dashboard 库重新启动了一个 R 会话