plotting the data

shiny-app/server.R

@@ -5,6 +5,7 @@ shinyServer(function(input, output) {
   emergency2013 <- read.csv("./data/emergency2013.csv")
   
   output$distPlot <- renderPlot({
-   plot(faithful$eruptions, faithful$waiting)
+    
+    plot(emergency2013$erdatemm, emergency2013$vstctgry)
   })
 })