From 558c05bb5152b869d0c41931255e41a3066dc17d Mon Sep 17 00:00:00 2001 From: Aron Lindberg Date: Sat, 7 Nov 2015 13:46:18 -0500 Subject: [PATCH 1/2] add plot tab --- shiny-app/ui.R | 1 + 1 file changed, 1 insertion(+) diff --git a/shiny-app/ui.R b/shiny-app/ui.R index b9562a3..36df7ff 100644 --- a/shiny-app/ui.R +++ b/shiny-app/ui.R @@ -18,6 +18,7 @@ shinyUI(fluidPage( tabsetPanel( id = 'dataset', tabPanel('emergency2013', dataTableOutput('mytable1'))) + tabPanel('emergency2013', plotOutput('myplot'))) ) ) )) \ No newline at end of file From e756c786516e06f90176269df1f418275d28d08c Mon Sep 17 00:00:00 2001 From: Aron Lindberg Date: Sat, 7 Nov 2015 13:46:39 -0500 Subject: [PATCH 2/2] select none by default --- shiny-app/ui.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/shiny-app/ui.R b/shiny-app/ui.R index 36df7ff..3a77a3f 100644 --- a/shiny-app/ui.R +++ b/shiny-app/ui.R @@ -10,7 +10,7 @@ shinyUI(fluidPage( sidebarLayout( sidebarPanel( checkboxGroupInput('show_vars', 'Columns in dataset to show:', - names(emergency2013), selected = names(emergency2013)) + names(emergency2013), selected = NULL) ), # Show a summary table of the selected variables