title: Change the color tone of a shinytheme
body: <p>Friends, is it possible to change the color tone of a shinytheme used? In my case I am using "united" which uses orange and gray. However I would like to make a slightly darker orange, is it possible to make this change? If so, can you please help me? The executable code is below.</p>
  
  <pre><code>library(shinyBS)
  library(shiny)
  library(shinyjs) 
  
  ui &lt;- fluidPage(
    navbarPage(theme = shinytheme("united"), collapsible = TRUE,
    titlePanel("Old Faithful Geyser Data"),
  
    sidebarLayout(
      sidebarPanel( 
        radioButtons("filter1", h3("Select properties"),
                     choices = list("All properties" = 1, 
                                    "Exclude properties" = 2),
                     selected = 1),
        title= "Select Proprierties",
        radioButtons("filter2", h3("Select farms"),
                     choices = list("All farms" = 1, 
                                    "Exclude farms" = 2),
                     selected = 1),
        sliderInput("bins",
                    "Number of bins:",
                    min = 1,
                    max = 20,
                    value = 30),
        ## need to include at least one bs element, adapt
        bsTooltip("bins", "The wait times will be broken into this many equally spaced bins",
                  "right", options = list(container = "body")) 
  
      ),
  
      mainPanel(
        plotOutput("distPlot")
      )
    )
  ))
  
  ## use JS to add an id attribute to the elements where you want to add the popover
  add_id_js &lt;- paste0(
    "$('#filter1').find('.radio &gt; label').attr('id', function(i) {",
    "return 'filter1_row_' + i})")
  
  server &lt;- function(input, output, session) {
    ## once the UI is loaded, call JS function and attach popover to it
    session$onFlushed(function() {
      runjs(add_id_js)
      addPopover(session, "filter1_row_0", "My Popover", "Content")
  
    })
  
  
    output$distPlot &lt;- renderPlot({
      # generate bins based on input$bins from ui.R
      x    &lt;- faithful[, 2]
      bins &lt;- seq(min(x), max(x), length.out = input$bins + 1)
  
      # draw the histogram with the specified number of bins
      hist(x, breaks = bins, col = 'darkgray', border = 'white')
    })
  }
  
  # Run the application 
  shinyApp(ui = ui, server = server)
  </code></pre>
  
  <p>Thank you very much friends!!</p>