Shiny 更改Shining`checkboxGroupInput中复选框的颜色`

在下面的示例中，是否可以将复选框的颜色从默认的蓝色更改为闪亮

library("shiny")
server = function(input, output) {

  output$value <- renderPrint({ input$checkGroup })

}

ui = fluidPage(

  checkboxGroupInput("checkGroup", label = h3("Checkbox group"), 
                     choices = list("Choice 1" = 1, "Choice 2" = 2, "Choice 3" = 3),
                     selected = 1),


  hr(),
  fluidRow(column(3, verbatimTextOutput("value")))

)

runApp(list(ui = ui, server = server))

库（“闪亮”）
服务器=功能（输入、输出）{
输出$value您可能会在这里找到答案：

shinythemes软件包可以轻松改变闪亮应用程序的整体外观。例如：


此外，我建议阅读这篇关于使用CSS设置复选框样式的文章：

更新：下面的答案引用了以前的情况
CSS3在现代浏览器中的广泛可用性（包括
Internet Explorer 9及更高版本）创建
复选框替换为您首选的样式，而不使用
javascript

以下是一些有用的链接：










值得注意的是，根本问题没有改变
仍然无法将样式（边框等）直接应用于复选框
元素，并使这些样式影响HTML复选框的显示。
然而，改变的是，现在可以隐藏
“实际”复选框，并将其替换为您自己的样式化元素，
只使用CSS。特别是，因为CSS现在有着广泛的用途
支持：选中选择器，您可以正确进行替换
反映复选框的选中状态