From b21bd11eaadaaff3536702998cc01b6e98c4a729 Mon Sep 17 00:00:00 2001
From: Aron Lindberg <aron.lindberg@case.edu>
Date: Sat, 7 Nov 2015 12:28:03 -0500
Subject: [PATCH] checkboxes for each of the variables added

---
 shiny-app/ui.R | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/shiny-app/ui.R b/shiny-app/ui.R
index 8ed9e7c..e964bc3 100644
--- a/shiny-app/ui.R
+++ b/shiny-app/ui.R
@@ -9,11 +9,8 @@ shinyUI(fluidPage(
   # Sidebar with a slider input for the number of bins
   sidebarLayout(
     sidebarPanel(
-      sliderInput("bins",
-                  "Number of bins:",
-                  min = 1,
-                  max = 50,
-                  value = 30)
+      checkboxGroupInput('show_vars', 'Columns in dataset to show:',
+                         names(emergency2013), selected = names(emergency2013))
     ),
     
     # Show a plot of the generated distribution