mirror of
https://github.com/bspeice/betterwithdata_cleaning_4
synced 2024-12-04 13:18:10 -05:00
add plot
This commit is contained in:
parent
03d304c9ef
commit
675ca16f02
@ -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])
|
||||
})
|
||||
|
Loading…
Reference in New Issue
Block a user