diff --git a/shiny-app/server.R b/shiny-app/server.R index b46e34e..c582e25 100644 --- a/shiny-app/server.R +++ b/shiny-app/server.R @@ -21,5 +21,8 @@ shinyServer(function(input, output) { library(ggplot2) library(corrplot) pairs(emergency2013[, input$show_vars, drop = FALSE]) + + emergency2013[, input$show_vars, drop = FALSE] + }) }) \ No newline at end of file diff --git a/shiny-app/ui.R b/shiny-app/ui.R index de2616a..5997f0a 100644 --- a/shiny-app/ui.R +++ b/shiny-app/ui.R @@ -16,7 +16,8 @@ shinyUI(fluidPage( id = 'dataset', tabPanel('emergency2013', dataTableOutput('mytable1')), tabPanel('emergency2013', dataTableOutput('mytable2')), - tabPanel('emergency2013', plotOutput('myplot')))) + tabPanel('emergency2013', plotOutput('myplot'))) ) ) +) ) \ No newline at end of file