Convert tabs to spaces in examples

inst/examples/02_text/ui.R

@@ -17,7 +17,7 @@ fluidPage(
     ),
     
     # Show a summary of the dataset and an HTML table with the 
-	 # requested number of observations
+    # requested number of observations
     mainPanel(
       verbatimTextOutput("summary"),
       

inst/examples/03_reactivity/server.R

@@ -10,7 +10,7 @@ function(input, output) {
   #
   #  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)
+  #     (it only executes a single time)
   #
   datasetInput <- reactive({
     switch(input$dataset,

inst/examples/03_reactivity/ui.R

@@ -22,7 +22,7 @@ fluidPage(
     
     
     # Show the caption, a summary of the dataset and an HTML 
-	 # table with the requested number of observations
+    # table with the requested number of observations
     mainPanel(
       h3(textOutput("caption", container = span)),
       

inst/examples/04_mpg/ui.R

@@ -18,8 +18,8 @@ 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/ui.R

@@ -23,16 +23,16 @@ fluidPage(
                   min = 1, max = 1000, value = c(200,500)),
 
       # Provide a custom currency format for value display,
-		# with basic animation
+    # with basic animation
       sliderInput("format", "Custom Format:",
                   min = 0, max = 10000, value = 0, step = 2500,
                   pre = "$", sep = ",", animate=TRUE),
 
       # Animation with custom interval (in ms) to control speed,
-		# plus looping
+    # plus looping
       sliderInput("animation", "Looping Animation:", 1, 2000, 1,
-					  	step = 10, animate=
-							animationOptions(interval=300, loop=TRUE))
+                  step = 10, animate =
+                  animationOptions(interval=300, loop=TRUE))
     ),
 
     # Show a table summarizing the values entered

inst/examples/09_upload/server.R

@@ -14,7 +14,7 @@ function(input, output) {
     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

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

inst/examples/10_download/server.R

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