add text example

inst/examples/text/server.R

@@ -0,0 +1,21 @@
+library(shiny)
+
+shinyServer(function(input, output) {
+  
+  datasetInput <- function() {
+    switch(input$dataset,
+           "rock" = rock,
+           "pressure" = pressure,
+           "cars" = cars)
+  }
+  
+  output$summary <- reactiveText(function() {
+    dataset <- datasetInput()
+    summary(dataset)
+  })
+  
+  output$view <- reactiveTable(function() {
+    obs <- as.integer(input$obs)
+    head(datasetInput(), n = obs)
+  })
+})

inst/examples/text/ui.R

@@ -0,0 +1,19 @@
+library(shiny)
+
+shinyUI(pageWithSidebar(
+  
+  headerPanel(
+    h1("Shiny text")
+  ),
+  
+  sidebarPanel(
+    selectInput("dataset", "Choose a dataset:", 
+                choices = c("rock", "pressure", "cars")),
+    numericInput("obs", "Number of observations to view:", 10)
+  ),
+  
+  mainPanel(
+    verbatimTextOutput("summary"),
+    tableOutput("view")
+  )
+))