title: Expand/Collapse shiny box on header click
body: <p>I have developed a shiny app, where we are using various box object in the ui. Currently the boxes expand/Collapse by clicking on the "+/-" sign on the right of the box header, but we need the expand/collapse on click on the header (anywhere on the box header). 
  Below code (sample code)
  If you look at the box with chart, I want the expansion &amp; collapse to be performed on clicking the header i.e. "Histogram box title" and not just the "+/-" sign on right side of the header:</p>
  
  <pre><code>    ## Only run this example in interactive R sessions
      if (interactive()) {
        library(shiny)
  
        # A dashboard body with a row of infoBoxes and valueBoxes, and two rows of boxes
        body &lt;- dashboardBody(
          # Boxes
          fluidRow(
            box(title = "Histogram box title",
                status = "warning", solidHeader = TRUE, collapsible = TRUE,
                plotOutput("plot", height = 250)
            )
          )
  
  
        )
  
        server &lt;- function(input, output) {
  
          output$plot &lt;- renderPlot({
            hist(rnorm(50))
          })
        }
  
        shinyApp(
          ui = dashboardPage(
            dashboardHeader(),
            dashboardSidebar(),
            body
          ),
          server = server
        )
      }
  </code></pre>