Trivial style copy edits to example 10_download

inst/examples/10_download/server.R

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

inst/examples/10_download/ui.R

@@ -1,5 +1,5 @@
 shinyUI(pageWithSidebar(
-  headerPanel('Download Example'),
+  headerPanel('Downloading Data'),
   sidebarPanel(
     selectInput("dataset", "Choose a dataset:", 
                 choices = c("rock", "pressure", "cars")),