From 675ca16f02cffa085e6f2ffeaa0214cc27264b19 Mon Sep 17 00:00:00 2001 From: Aron Lindberg Date: Sat, 7 Nov 2015 13:50:31 -0500 Subject: [PATCH] add plot --- shiny-app/server.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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]) })