mirror-github-bspeice/betterwithdata_cleaning_4
1
0
Fork 0
mirror of https://github.com/bspeice/betterwithdata_cleaning_4 synced 2024-12-04 21:28:09 -05:00
Code Issues Releases Wiki Activity

add plot

Browse Source
This commit is contained in:
Aron Lindberg 2015-11-07 13:50:31 -05:00
parent 03d304c9ef
commit 675ca16f02
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
shiny-app/server.R
View File

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