loading the data

This commit is contained in:
Aron Lindberg 2015-11-07 12:04:32 -05:00
parent 3d51e85c7e
commit 38b535e9fc

View File

@ -2,13 +2,7 @@ library(shiny)
# Define server logic required to draw a histogram # Define server logic required to draw a histogram
shinyServer(function(input, output) { shinyServer(function(input, output) {
emergency2013 <- read.csv("./data/emergency2013.csv")
# 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
output$distPlot <- renderPlot({ output$distPlot <- renderPlot({
plot(faithful$eruptions, faithful$waiting) plot(faithful$eruptions, faithful$waiting)