basic shim for sliders example

_includes/tutorial/sliders.md

@@ -1,6 +1,5 @@
 
-
-## (Under Construction)
+![Sliders Screenshot](screenshots/sliders.png)
 
 The Sliders application demonstrates the many capabilities of slider controls, including the ability to run an animation sequence. To run the example type: 
 
@@ -12,14 +11,80 @@ The Sliders application demonstrates the many capabilities of slider controls, i
 
 <pre><code class="r">library(shiny)
 
+# Define UI for slider demo application
+shinyUI(pageWithSidebar(
 
+  #  Application title
+  headerPanel(&quot;Sliders&quot;),
+
+  # Sidebar with sliders that demonstrate various available options
+  sidebarPanel(
+    # Simple integer interval
+    sliderInput(&quot;integer&quot;, &quot;Integer:&quot;, 
+                min=0, max=1000, value=500),
+
+    # Decimal interval with step value
+    sliderInput(&quot;decimal&quot;, &quot;Decimal:&quot;, 
+                min = 0, max = 1, value = 0.5, step= 0.1),
+
+    # Specification of range within an interval
+    sliderInput(&quot;range&quot;, &quot;Range:&quot;,
+                min = 1, max = 1000, value = c(200,500)),
+
+    # Provide a custom currency format for value display
+    sliderInput(&quot;format&quot;, &quot;Custom Format:&quot;, 
+                min = 0, max = 100000, value = 50000, step = 25000,
+                format=&quot;$#,##0&quot;, locale=&quot;us&quot;),  
+
+    # Animation with custom interval (in milliseconds) to control speed
+    # (also provide helpText to highlight the possiblity of animation)
+    sliderInput(&quot;animation&quot;, &quot;Animation:&quot;, 1, 2000, 1, step = 10,
+                animationInterval = 300),
+    helpText(&quot;Use the Play button to animate values.&quot;)
+  ),
+
+  # Show a table summarizing the values entered
+  mainPanel(
+    tableOutput(&quot;values&quot;)
+  )
+))
 </code></pre>
 
 #### server.R
 
 <pre><code class="r">library(shiny)
 
+# Define server logic for slider examples
+shinyServer(function(input, output) {
 
+  # Reactive function to compose a data frame containing all of the values
+  sliderValues &lt;- reactive(function() {
+
+    # Show values using R&#39;s default print format
+    printValue &lt;- function(value) {
+      capture.output(print(value))
+    }
+
+    # Compose data frame
+    data.frame(
+      Name = c(&quot;Integer&quot;, 
+               &quot;Decimal&quot;,
+               &quot;Range&quot;,
+               &quot;Custom Format&quot;,
+               &quot;Animation&quot;),
+      Value = c(printValue(input$integer), 
+                printValue(input$decimal),
+                printValue(input$range),
+                printValue(input$format),
+                printValue(input$animation)), 
+      stringsAsFactors=FALSE)
+  }) 
+
+  # Show the values using an HTML table
+  output$values &lt;- reactiveTable(function() {
+    sliderValues()
+  })
+})
 </code></pre>