mirror of
				https://github.com/bspeice/betterwithdata_cleaning_4
				synced 2025-11-04 02:10:46 -05:00 
			
		
		
		
	loading the data
This commit is contained in:
		@ -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)
 | 
				
			||||||
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user