betterwithdata_cleaning_4/shiny-app/server.R

library(shiny)

# Define server logic required to draw a histogram
shinyServer(function(input, output) {
  emergency2013 <- read.csv("./data/emergency2013.csv")
  
  output$distPlot <- renderPlot({
    
    plot(emergency2013$erdatemm, emergency2013$vstctgry)
  })
})