add plot

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])
   })