update

Author: cldougl

Examples/Movies/server.R

@@ -1,49 +1,37 @@
-## Make histogram of movie ratings
-
-## Add data
-# This example is using the movies data (built into ggplot)
+# server.R
 x = movies$rating
 minx = min(x)
 maxx = max(x)
 
 shinyServer(function(input, output) {
 			output$trendPlot <- renderGraph({
-									#pull number of bins from the ui
 									bins <- input$bins
-									
-									# draw the histogram with
-									# the specified number of bins		
-									trace1 <- list(
-														x = x, 
-														autobinx = FALSE, 
-														xbins = list(
-															start = minx, 
-															end = maxx, 
-															size =  ((maxx-minx)/bins)
-															),  
-														type = "histogram"
-														)
-		
-					# define data
+									trace1 <- list(x = x,
+																 autobinx = FALSE,
+																 xbins = list(start = minx,
+																							end = maxx,
+																							size =  ((maxx-minx)/bins)
+																 							),
+																 type = "histogram"
+																 )
+
 					data <- list(trace1)
-					# define layout information
-					layout<- list(xaxis = 
+					layout<- list(xaxis =
 												list(title = "Ratings",
-														 range = c(minx, maxx), 
-														 autorange=FALSE, 
-														 autotick=FALSE, 
-														 tick0=minx, 
-														 dtick= ((maxx-minx)/bins )))
-		
-		# This sends message up to the browser client, which will get fed through to
-		# Plotly's javascript graphing library embedded inside the graph
+														 range = c(minx, maxx),
+														 autorange = FALSE,
+														 autotick = FALSE,
+														 tick0 = minx,
+														 dtick = ((maxx-minx)/bins)
+												)
+										)
+
 		return(list(
-			list(
-				id="trendPlot",
-				task="newPlot",
-				data=data,
-				layout=layout
-			)
+					 list(id = "trendPlot",
+								task = "newPlot",
+								data = data,
+								layout = layout
+				)
 		))
 	})
 })

Examples/Movies/shinyapps/chelsea/Movies.dcf

@@ -1,22 +1,17 @@
-# Define UI for application that draws a histogram
+# ui.R
 shinyUI(fluidPage(
-	
-	# Application title
-	titlePanel("Movie Ratings!"),
-	
-	# Sidebar with a slider input for the number of bins
-	sidebarLayout(
-		sidebarPanel(
-			sliderInput("bins",
-									"Number of bins:",
-									min = 1,
-									max = 50,
-									value = 10)
-		),
-		
-		# Show a plot of the generated distribution
+		titlePanel("Movie Ratings!"),
+		sidebarLayout(
+				sidebarPanel(
+						sliderInput("bins",
+												"Number of bins:",
+												min = 1,
+												max = 50,
+												value = 10
+						)
+				),
 		mainPanel(
-			graphOutput("trendPlot")
+					graphOutput("trendPlot")
 		)
 	)
 ))