diff --git a/shiny-app/server.R b/shiny-app/server.R index a7c469d..70cf266 100644 --- a/shiny-app/server.R +++ b/shiny-app/server.R @@ -5,10 +5,10 @@ shinyServer(function(input, output) { emergency2013 <- read.csv("./data/emergency2013.csv") output$mytable1 <- renderDataTable({ + emergency2013[, input$show_vars, drop = FALSE] + }) + output$myplot <- renderPlot({ library(ggplot2) - emergency2013[, input$show_vars, drop = FALSE] - - library(corrplot) pairs(emergency2013[, input$show_vars, drop = FALSE]) })