Implement reactive domains

inst/rmd-examples/mixed.Rmd

@@ -0,0 +1,16 @@
+```{r}
+library(shiny)
+tags$strong("foo")
+selectInput("foo", "foo", LETTERS)
+```
+
+Here's an app
+
+```{r}
+shinyApp(
+  ui = fluidPage(plotOutput("plot")),
+  server = function(input, output, session) {
+    output$plot <- renderPlot(plot(cars))
+  }
+)
+```