如何将引导主题应用于 DT 表中的按钮

Question

我有一个闪亮的应用程序，可以在 DT 表中显示数据。我使用 Buttons 扩展来包含“全选”和“取消全选”按钮，并使用 shinythemes 应用引导主题。我为两个 DT 按钮分配了一个类，以便以与应用程序中的所有其他按钮相同的方式格式化它们。但是，这只会改变字体，不会改变按钮的颜色。

下面是一个应用程序的最小工作示例的屏幕截图，其中包括一个格式正确的正常操作按钮和两个格式不正确的 DT 按钮。请注意，我已将 "btn btn-primary" 类分配给“全选”，以表明字体确实因分配类而改变。

这是创建应用程序的代码：

library(shiny)
library(DT)

ui <- fluidPage(
  theme = shinythemes::shinytheme("lumen"),
  actionButton("button", "Click", class = "btn btn-primary"),
  dataTableOutput("table")
)

server <- function(input, output, session) {
  output$table <- renderDT(
    datatable(mtcars,
              extensions = c("Select", "Buttons"),
              selection = "none",
              options = list(
                dom = "Bfti",
                select = list(style = "multi"),
                buttons = list(
                  list(extend = "selectAll", className = "btn btn-primary"),
                  list(extend = "selectNone")
                )
              )
    ),
    server = FALSE
  )
}

shinyApp(ui, server)

如何以与“单击”按钮相同的方式格式化“全选”和“取消全选”按钮？

当然，我知道我可以简单地创建两个执行相同操作的普通操作按钮。但是，它们放在桌子上方，因此占用了更多的垂直空间，这是我不想要的。

Answer 1

  output$table <- renderDT(
    datatable(mtcars,
              extensions = c("Select", "Buttons"),
              selection = "none",
              options = list(
                dom = "Bfti",
                select = list(style = "multi"),
                buttons = list(
                  list(
                    extend = "selectAll", 
                    className = "btn btn-primary"
                  ),
                  list(
                    extend = "selectNone",
                    className = "btn btn-primary"
                  )
                ),
                initComplete = JS("function(){$('.dt-buttons button').removeClass('dt-button');}")
              )
    ),
    server = FALSE
  )