title: collapsible output in main panel
body: <p>I have a shiny app with two related analyses. Within each analysis there are a few distinct types of results. </p>
  
  <p>The interface is getting really busy and I'd like to have the output elements be collapsible (<a href="http://www.w3schools.com/bootstrap/tryit.asp?filename=trybs_ref_js_collapse_simple_in&amp;stacked=h" rel="nofollow">maybe like this</a>).</p>
  
  <p>Are there any examples of this type of <code>ui</code> file? My current one looks like this:</p>
  
  <pre><code>shinyUI(
      fluidPage(
        tabsetPanel(
          tabPanel("Analysis 1",
                   sidebarPanel(
                     sliderInput("value1", "some value", 
                                 min=1, max=20, value=5, step=0.2)
                   ), 
                   mainPanel(
                     ## these two elements collapse together
                     p(textOutput("results_1_a_text")), 
                     plotOutput("results_1_a_graph", height = "400px"),
                     ## these two elements collapse together
                     p(textOutput("results_1_b_text")), 
                     plotOutput("results_1_b_graph", height = "400px")
                   )
          ), 
          tabPanel("Analysis 2",
                   sidebarPanel(
                     sliderInput("value2", "some value", 
                                 min=1, max=20, value=5, step=0.2)
                   ), 
                   mainPanel(
                     ## these two elements collapse together
                     p(textOutput("results_2_a_text")), 
                     plotOutput("results_2_a_graph", height = "400px"),
                     ## these two elements collapse together
                     p(textOutput("results_2_b_text")), 
                     plotOutput("results_2_b_graph", height = "400px")
                   )
          )
        )  
      )
    )
  </code></pre>
  
  <p>Thanks,</p>
  
  <p>Max</p>