diff --git a/shiny-app/ui.R b/shiny-app/ui.R index 998d4fa..21bc231 100644 --- a/shiny-app/ui.R +++ b/shiny-app/ui.R @@ -10,18 +10,16 @@ shinyUI(fluidPage( sidebarLayout( sidebarPanel( checkboxGroupInput('show_vars', 'Columns in dataset to show:', - names(emergency2013), selected = null) - ), - - # Show a summary table of the selected variables - + names(emergency2013), selected = NULL) + ) + ), + # Show a summary table of the selected variables mainPanel( tabsetPanel( id = 'dataset', tabPanel('emergency2013', dataTableOutput('mytable1')), - tabPanel('scatterplot', plotOutput('distPlot')) - ) + tabPanel('emergency2013', plotOutput('myplot'))) ) ) -)) \ No newline at end of file +) \ No newline at end of file