reflow comments (and a handful of code lines) to 65 characters

inst/examples/02_text/server.R

@@ -1,7 +1,8 @@
 library(shiny)
 library(datasets)
 
-# Define server logic required to summarize and view the selected dataset
+# Define server logic required to summarize and view the selected
+# dataset
 shinyServer(function(input, output) {
   
   # Return the requested dataset

inst/examples/02_text/ui.R

@@ -6,8 +6,8 @@ shinyUI(fluidPage(
   # Application title
   titlePanel("Shiny Text"),
   
-  # Sidebar with controls to select a dataset and specify the number
-  # of observations to view
+  # Sidebar with controls to select a dataset and specify the
+  # number of observations to view
   sidebarLayout(
     sidebarPanel(
       selectInput("dataset", "Choose a dataset:", 
@@ -16,8 +16,8 @@ shinyUI(fluidPage(
       numericInput("obs", "Number of observations to view:", 10)
     ),
     
-    # Show a summary of the dataset and an HTML table with the requested
-    # number of observations
+    # Show a summary of the dataset and an HTML table with the 
+	 # requested number of observations
     mainPanel(
       verbatimTextOutput("summary"),
       

inst/examples/03_reactivity/server.R

@@ -1,14 +1,16 @@
 library(shiny)
 library(datasets)
 
-# Define server logic required to summarize and view the selected dataset
+# Define server logic required to summarize and view the selected
+# dataset
 shinyServer(function(input, output) {
 
-  # By declaring databaseInput as a reactive expression we ensure that:
+  # By declaring databaseInput as a reactive expression we ensure 
+  # that:
   #
   #  1) It is only called when the inputs it depends on changes
-  #  2) The computation and result are shared by all the callers (it 
-  #     only executes a single time)
+  #  2) The computation and result are shared by all the callers 
+  #	  (it only executes a single time)
   #
   datasetInput <- reactive({
     switch(input$dataset,
@@ -17,30 +19,34 @@ shinyServer(function(input, output) {
            "cars" = cars)
   })
   
-  # The output$caption is computed based on a reactive expression that
-  # returns input$caption. When the user changes the "caption" field:
+  # The output$caption is computed based on a reactive expression
+  # that returns input$caption. When the user changes the
+  # "caption" field:
   #
-  #  1) This function is automatically called to recompute the output 
-  #  2) The new caption is pushed back to the browser for re-display
+  #  1) This function is automatically called to recompute the 
+  #     output 
+  #  2) The new caption is pushed back to the browser for 
+  #     re-display
   # 
-  # Note that because the data-oriented reactive expressions below don't 
-  # depend on input$caption, those expressions are NOT called when 
-  # input$caption changes.
+  # Note that because the data-oriented reactive expressions
+  # below don't depend on input$caption, those expressions are
+  # NOT called when input$caption changes.
   output$caption <- renderText({
     input$caption
   })
   
-  # The output$summary depends on the datasetInput reactive expression, 
-  # so will be re-executed whenever datasetInput is invalidated
+  # The output$summary depends on the datasetInput reactive
+  # expression, so will be re-executed whenever datasetInput is
+  # invalidated
   # (i.e. whenever the input$dataset changes)
   output$summary <- renderPrint({
     dataset <- datasetInput()
     summary(dataset)
   })
   
-  # The output$view depends on both the databaseInput reactive expression
-  # and input$obs, so will be re-executed whenever input$dataset or 
-  # input$obs is changed. 
+  # The output$view depends on both the databaseInput reactive
+  # expression and input$obs, so will be re-executed whenever
+  # input$dataset or input$obs is changed. 
   output$view <- renderTable({
     head(datasetInput(), n = input$obs)
   })

inst/examples/03_reactivity/ui.R

@@ -6,10 +6,10 @@ shinyUI(fluidPage(
   # Application title
   titlePanel("Reactivity"),
   
-  # Sidebar with controls to provide a caption, select a dataset, and 
-  # specify the number of observations to view. Note that changes made
-  # to the caption in the textInput control are updated in the output
-  # area immediately as you type
+  # Sidebar with controls to provide a caption, select a dataset,
+  # and specify the number of observations to view. Note that
+  # changes made to the caption in the textInput control are
+  # updated in the output area immediately as you type
   sidebarLayout(
     sidebarPanel(
       textInput("caption", "Caption:", "Data Summary"),
@@ -21,8 +21,8 @@ shinyUI(fluidPage(
     ),
     
     
-    # Show the caption, a summary of the dataset and an HTML table with
-    # the requested number of observations
+    # Show the caption, a summary of the dataset and an HTML 
+	 # table with the requested number of observations
     mainPanel(
       h3(textOutput("caption")), 
       

inst/examples/04_mpg/server.R

@@ -1,17 +1,19 @@
 library(shiny)
 library(datasets)
 
-# We tweak the "am" field to have nicer factor labels. Since this doesn't
-# rely on any user inputs we can do this once at startup and then use the
-# value throughout the lifetime of the application
+# We tweak the "am" field to have nicer factor labels. Since
+# this doesn't rely on any user inputs we can do this once at
+# startup and then use the value throughout the lifetime of the
+# application
 mpgData <- mtcars
 mpgData$am <- factor(mpgData$am, labels = c("Automatic", "Manual"))
 
 
-# Define server logic required to plot various variables against mpg
+# Define server logic required to plot various variables against
+# mpg
 shinyServer(function(input, output) {
   
-  # Compute the forumla text in a reactive expression since it is 
+  # Compute the forumla text in a reactive expression since it is
   # shared by the output$caption and output$mpgPlot functions
   formulaText <- reactive({
     paste("mpg ~", input$variable)
@@ -22,8 +24,8 @@ shinyServer(function(input, output) {
     formulaText()
   })
   
-  # Generate a plot of the requested variable against mpg and only 
-  # include outliers if requested
+  # Generate a plot of the requested variable against mpg and
+  # only include outliers if requested
   output$mpgPlot <- renderPlot({
     boxplot(as.formula(formulaText()), 
             data = mpgData,

inst/examples/04_mpg/ui.R

@@ -6,8 +6,8 @@ shinyUI(fluidPage(
   # Application title
   titlePanel("Miles Per Gallon"),
   
-  # Sidebar with controls to select the variable to plot against mpg
-  # and to specify whether outliers should be included
+  # Sidebar with controls to select the variable to plot against
+  # mpg and to specify whether outliers should be included
   sidebarLayout(
     sidebarPanel(
       selectInput("variable", "Variable:",
@@ -18,7 +18,8 @@ shinyUI(fluidPage(
       checkboxInput("outliers", "Show outliers", FALSE)
     ),
     
-    # Show the caption and plot of the requested variable against mpg
+	 # Show the caption and plot of the requested variable against
+	 # mpg
     mainPanel(
       h3(textOutput("caption")),
       

inst/examples/05_sliders/server.R

@@ -3,7 +3,8 @@ library(shiny)
 # Define server logic for slider examples
 shinyServer(function(input, output) {
   
-  # Reactive expression to compose a data frame containing all of the values
+  # Reactive expression to compose a data frame containing all of
+  # the values
   sliderValues <- reactive({
     
     # Compose data frame

inst/examples/05_sliders/ui.R

@@ -6,7 +6,8 @@ shinyUI(fluidPage(
   #  Application title
   titlePanel("Sliders"),
   
-  # Sidebar with sliders that demonstrate various available options
+  # Sidebar with sliders that demonstrate various available
+  # options
   sidebarLayout(
     sidebarPanel(
       # Simple integer interval
@@ -21,14 +22,17 @@ shinyUI(fluidPage(
       sliderInput("range", "Range:",
                   min = 1, max = 1000, value = c(200,500)),
       
-      # Provide a custom currency format for value display, with basic animation
+      # Provide a custom currency format for value display, 
+		# with basic animation
       sliderInput("format", "Custom Format:", 
                   min = 0, max = 10000, value = 0, step = 2500,
                   format="$#,##0", locale="us", animate=TRUE),
       
-      # Animation with custom interval (in ms) to control speed, plus looping
-      sliderInput("animation", "Looping Animation:", 1, 2000, 1, step = 10, 
-                  animate=animationOptions(interval=300, loop=TRUE))
+      # Animation with custom interval (in ms) to control speed,
+		# plus looping
+      sliderInput("animation", "Looping Animation:", 1, 2000, 1,
+					  	step = 10, animate=
+							animationOptions(interval=300, loop=TRUE))
     ),
     
     # Show a table summarizing the values entered
@@ -36,4 +40,4 @@ shinyUI(fluidPage(
       tableOutput("values")
     )
   )
-))
+))

inst/examples/06_tabsets/server.R

@@ -3,9 +3,10 @@ library(shiny)
 # Define server logic for random distribution application
 shinyServer(function(input, output) {
   
-  # Reactive expression to generate the requested distribution. This is 
-  # called whenever the inputs change. The output functions defined 
-  # below then all use the value computed from this expression
+  # Reactive expression to generate the requested distribution.
+  # This is called whenever the inputs change. The output
+  # functions defined below then all use the value computed from
+  # this expression
   data <- reactive({
     dist <- switch(input$dist,
                    norm = rnorm,
@@ -17,10 +18,11 @@ shinyServer(function(input, output) {
     dist(input$n)
   })
   
-  # Generate a plot of the data. Also uses the inputs to build the 
-  # plot label. Note that the dependencies on both the inputs and
-  # the data reactive expression are both tracked, and all expressions 
-  # are called in the sequence implied by the dependency graph
+  # Generate a plot of the data. Also uses the inputs to build
+  # the plot label. Note that the dependencies on both the inputs
+  # and the data reactive expression are both tracked, and
+  # all expressions are called in the sequence implied by the
+  # dependency graph
   output$plot <- renderPlot({
     dist <- input$dist
     n <- input$n

inst/examples/06_tabsets/ui.R

@@ -7,8 +7,8 @@ shinyUI(fluidPage(
   titlePanel("Tabsets"),
   
   # Sidebar with controls to select the random distribution type
-  # and number of observations to generate. Note the use of the br()
-  # element to introduce extra vertical spacing
+  # and number of observations to generate. Note the use of the
+  # br() element to introduce extra vertical spacing
   sidebarLayout(
     sidebarPanel(
       radioButtons("dist", "Distribution type:",

inst/examples/07_widgets/server.R

@@ -1,7 +1,8 @@
 library(shiny)
 library(datasets)
 
-# Define server logic required to summarize and view the selected dataset
+# Define server logic required to summarize and view the 
+# selected dataset
 shinyServer(function(input, output) {
   
   # Return the requested dataset

inst/examples/07_widgets/ui.R

@@ -6,13 +6,14 @@ shinyUI(fluidPage(
   # Application title.
   titlePanel("More Widgets"),
   
-  # Sidebar with controls to select a dataset and specify the number
-  # of observations to view. The helpText function is also used to 
-  # include clarifying text. Most notably, the inclusion of a 
-  # submitButton defers the rendering of output until the user 
-  # explicitly clicks the button (rather than doing it immediately
-  # when inputs change). This is useful if the computations required
-  # to render output are inordinately time-consuming.
+  # Sidebar with controls to select a dataset and specify the
+  # number of observations to view. The helpText function is
+  # also used to include clarifying text. Most notably, the
+  # inclusion of a submitButton defers the rendering of output
+  # until the user explicitly clicks the button (rather than
+  # doing it immediately when inputs change). This is useful if
+  # the computations required to render output are inordinately
+  # time-consuming.
   sidebarLayout(
     sidebarPanel(
       selectInput("dataset", "Choose a dataset:", 
@@ -27,9 +28,10 @@ shinyUI(fluidPage(
       submitButton("Update View")
     ),
     
-    # Show a summary of the dataset and an HTML table with the requested
-    # number of observations. Note the use of the h4 function to provide
-    # an additional header above each output section.
+    # Show a summary of the dataset and an HTML table with the
+    # requested number of observations. Note the use of the h4
+    # function to provide an additional header above each output
+    # section.
     mainPanel(
       h4("Summary"),
       verbatimTextOutput("summary"),
@@ -38,4 +40,4 @@ shinyUI(fluidPage(
       tableOutput("view")
     )
   )
-))
+))

inst/examples/09_upload/server.R

@@ -3,16 +3,18 @@ library(shiny)
 shinyServer(function(input, output) {
   output$contents <- renderTable({
     
-    # input$file1 will be NULL initially. After the user selects and uploads a 
-    # file, it will be a data frame with 'name', 'size', 'type', and 'datapath' 
-    # columns. The 'datapath' column will contain the local filenames where the 
-    # data can be found.
+    # input$file1 will be NULL initially. After the user selects
+    # and uploads a file, it will be a data frame with 'name',
+    # 'size', 'type', and 'datapath' columns. The 'datapath'
+    # column will contain the local filenames where the data can
+    # be found.
 
     inFile <- input$file1
 
     if (is.null(inFile))
       return(NULL)
     
-    read.csv(inFile$datapath, header=input$header, sep=input$sep, quote=input$quote)
+    read.csv(inFile$datapath, header=input$header, sep=input$sep, 
+				 quote=input$quote)
   })
 })

inst/examples/09_upload/ui.R

@@ -5,7 +5,9 @@ shinyUI(fluidPage(
   sidebarLayout(
     sidebarPanel(
       fileInput('file1', 'Choose CSV File',
-                accept=c('text/csv', 'text/comma-separated-values,text/plain', '.csv')),
+                accept=c('text/csv', 
+								 'text/comma-separated-values,text/plain', 
+								 '.csv')),
       tags$hr(),
       checkboxInput('header', 'Header', TRUE),
       radioButtons('sep', 'Separator',

inst/examples/10_download/server.R

@@ -11,7 +11,9 @@ shinyServer(function(input, output) {
   })
   
   output$downloadData <- downloadHandler(
-    filename = function() { paste(input$dataset, '.csv', sep='') },
+    filename = function() { 
+		 paste(input$dataset, '.csv', sep='') 
+	 },
     content = function(file) {
       write.csv(datasetInput(), file)
     }