更改Shiny`checkGroupInput`中复选框的颜色

Question

In Shiny是否可以在下面的示例中更改默认蓝色的复选框颜色？

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))

Answer 1

可能在这里您可以找到答案：https://rstudio.github.io/shinythemes/

有光泽的主题包可让您轻松改变Shiny应用程序的整体外观。例如：

另外，我建议阅读这篇关于CSSI复选框样式的帖子：How to style checkbox using CSS?

  

更新：以下答案引用之前的状态   CSS3的广泛可用性。在现代浏览器中（包括   Internet Explorer 9及更高版本）创建起来更简单   使用您首选样式的复选框替换，而不使用   的JavaScript。

     

以下是一些有用的链接：

     

  
• Easy CSS3 Checkboxes and Radio Buttons
  
• Collection of checkbox styles from CSSDeck
  
• Creating Custom Form Checkboxes with Just CSS
  
• Easy CSS Checkbox Generator
  
• Stuff You Can Do With The Checkbox Hack
  
• Implementing Custom Checkboxes and Radio Buttons with CSS3
  
• How to Style a Checkbox With CSS
  

     

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