28 lines
682 B
R
28 lines
682 B
R
library(shiny)
|
|
library(ggplot2)
|
|
|
|
# Define server logic required to draw a histogram
|
|
shinyServer(function(input, output) {
|
|
emergency2013 <- read.csv("./data/emergency2013.csv")
|
|
|
|
output$distPlot <- renderPlot({
|
|
plot(emergency2013$duid, emergency2013$vstctgry)
|
|
})
|
|
|
|
output$mytable1 <- renderDataTable({
|
|
emergency2013[, input$show_vars, drop = FALSE]
|
|
})
|
|
|
|
output$mytable2 <- renderDataTable({
|
|
summary(emergency2013[, input$show_vars, drop = FALSE])
|
|
|
|
})
|
|
output$myplot <- renderPlot({
|
|
library(ggplot2)
|
|
library(corrplot)
|
|
pairs(emergency2013[, input$show_vars, drop = FALSE])
|
|
|
|
emergency2013[, input$show_vars, drop = FALSE]
|
|
|
|
})
|
|
}) |