title: Checkbox Option For Results
body: <p>So I have a dashboard that I built out, and the code looks like this:</p>
  
  <p><strong>Server</strong></p>
  
  <pre><code>shinyServer(function(input, output) {
  
  output$table &lt;- DT::renderDataTable(DT::datatable({
  data &lt;- cancel_reason_month
  if (input$rep != "All") {
    data &lt;- data[data$'Cohort Month' == input$rep,]
  }
  data
  }))
  
  })
  </code></pre>
  
  <p><strong>UI</strong></p>
  
  <pre><code>shinyUI(
  fluidPage(
  titlePanel("Breakdown"),
  
  fluidRow(
    column(4,
           selectInput("rep",
                       "Cancel Month:",
                       c("All",
                         unique(as.character(cancel_reason_month$`Cohort Month`))))
    )
  ),
  fluidRow(
    DT::dataTableOutput("table")
  )
  )
  ) 
  </code></pre>
  
  <p><a href="http://imgur.com/a/LSH40" rel="nofollow">The end results is a dashboard that looks like this.</a></p>
  
  <p>So you can see I currently have a drop down menu where you can select the month, but that's not what I'm trying to do.</p>
  
  <p>Lets say I only want to see data from July and August of 2016, how could I do that? Is there some sort of checkboxn widget where I can select the options I want?</p>
  
  <p>Additionally, how could I add subtotals to the bottom that will change with the data I'm selecting (i.e. If I select July and August, the resulting subtotals for the columns will ONLY reflect July and August.)</p>