This commit is contained in:
Aron Lindberg 2015-11-07 13:50:31 -05:00
parent 03d304c9ef
commit 675ca16f02

View File

@ -5,10 +5,10 @@ shinyServer(function(input, output) {
emergency2013 <- read.csv("./data/emergency2013.csv")
output$mytable1 <- renderDataTable({
library(ggplot2)
emergency2013[, input$show_vars, drop = FALSE]
})
output$myplot <- renderPlot({
library(ggplot2)
library(corrplot)
pairs(emergency2013[, input$show_vars, drop = FALSE])
})