From 2627c1d12fb056510747101e9b0cfca221916305 Mon Sep 17 00:00:00 2001
From: geoffreyli <geoffreyli@Geoffreys-MacBook-Pro.local>
Date: Sat, 7 Nov 2015 15:21:42 -0500
Subject: [PATCH 1/2] Rename tabs

---
 shiny-app/ui.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/shiny-app/ui.R b/shiny-app/ui.R
index 5997f0a..6ec3c91 100644
--- a/shiny-app/ui.R
+++ b/shiny-app/ui.R
@@ -14,9 +14,9 @@ shinyUI(fluidPage(
     mainPanel(
       tabsetPanel(
         id = 'dataset',
-        tabPanel('emergency2013', dataTableOutput('mytable1')),
-        tabPanel('emergency2013', dataTableOutput('mytable2')),
-        tabPanel('emergency2013', plotOutput('myplot')))
+        tabPanel('Data Table', dataTableOutput('mytable1')),
+        tabPanel('Summary Statistics', dataTableOutput('mytable2')),
+        tabPanel('Scatter Plots', plotOutput('myplot')))
     )
   )
 )

From 0a09137353e76ce07e5ba7c3a37cd80fffb54ed9 Mon Sep 17 00:00:00 2001
From: geoffreyli <geoffreyli@Geoffreys-MacBook-Pro.local>
Date: Sat, 7 Nov 2015 16:36:45 -0500
Subject: [PATCH 2/2] Customize datasets

---
 shiny-app/server.R | 30 +++++++++++++++++++++++++-----
 shiny-app/ui.R     |  8 +++++---
 2 files changed, 30 insertions(+), 8 deletions(-)

diff --git a/shiny-app/server.R b/shiny-app/server.R
index c582e25..fbac8dc 100644
--- a/shiny-app/server.R
+++ b/shiny-app/server.R
@@ -3,26 +3,46 @@ library(ggplot2)
 
 # Define server logic required to draw a histogram
 shinyServer(function(input, output) {
+  #datasets <- list.files('./data/')
   emergency2013 <- read.csv("./data/emergency2013.csv")
   
+  
+
+  output$fileSelect <- renderUI({
+    selectInput("dataSetInput", "Choose your survey:", list.files('./data/'))
+  })  
+  
+  #currentDataset <- read.csv(paste0('./data/', input$dataSetInput))
+  
+  output$columnList <- renderUI({
+    currentDataset <- read.csv(paste0('./data/', input$dataSetInput, sep=''))
+    checkboxGroupInput('show_vars', 'Columns in dataset to show:', names(currentDataset), selected = NULL)
+  })
+
+
+  
   output$distPlot <- renderPlot({
-    plot(emergency2013$duid, emergency2013$vstctgry)
+    currentDataset <- read.csv(paste0('./data/', input$dataSetInput, sep=''))
+    plot(currentDataset$duid, currentDataset$vstctgry)
   })
   
   output$mytable1 <- renderDataTable({
-      emergency2013[, input$show_vars, drop = FALSE]
+      currentDataset <- read.csv(paste0('./data/', input$dataSetInput, sep=''))
+      currentDataset[, input$show_vars, drop = FALSE]
   })
     
   output$mytable2 <- renderDataTable({
-      summary(emergency2013[, input$show_vars, drop = FALSE])
+    currentDataset <- read.csv(paste0('./data/', input$dataSetInput, sep=''))
+    summary(currentDataset[, input$show_vars, drop = FALSE])
     
   })
   output$myplot <- renderPlot({
+    currentDataset <- read.csv(paste0('./data/', input$dataSetInput, sep=''))
     library(ggplot2)
     library(corrplot)
-    pairs(emergency2013[, input$show_vars, drop = FALSE])
+    pairs(currentDataset[, input$show_vars, drop = FALSE])
 
-    emergency2013[, input$show_vars, drop = FALSE]
+    currentDataset[, input$show_vars, drop = FALSE]
 
   })
 })
\ No newline at end of file
diff --git a/shiny-app/ui.R b/shiny-app/ui.R
index 6ec3c91..7bd1317 100644
--- a/shiny-app/ui.R
+++ b/shiny-app/ui.R
@@ -5,11 +5,13 @@ shinyUI(fluidPage(
   
   # Application title
   titlePanel("Hello Shiny!"),
-  
+
   # Sidebar with a slider input for the number of bins
   sidebarLayout(
     sidebarPanel(
-      checkboxGroupInput('show_vars', 'Columns in dataset to show:', names(emergency2013), selected = NULL)),
+      uiOutput('fileSelect'),
+      uiOutput('columnList')
+    ),
   # Show a summary table of the selected variables
     mainPanel(
       tabsetPanel(
@@ -20,4 +22,4 @@ shinyUI(fluidPage(
     )
   )
 )
-)
\ No newline at end of file
+)