loading the data

shiny-app/server.R

@@ -2,13 +2,7 @@ library(shiny)
 
 # Define server logic required to draw a histogram
 shinyServer(function(input, output) {
-  
-  # Expression that generates a histogram. The expression is
-  # wrapped in a call to renderPlot to indicate that:
-  #
-  #  1) It is "reactive" and therefore should re-execute automatically
-  #     when inputs change
-  #  2) Its output type is a plot
+  emergency2013 <- read.csv("./data/emergency2013.csv")
   
   output$distPlot <- renderPlot({
    plot(faithful$eruptions, faithful$waiting)