Implement Shiny apps embedded as iframes in knitr

inst/rmd-examples/subapps.Rmd

@@ -0,0 +1,23 @@
+# Subapp test
+
+This is an R Markdown document that contains several embedded Shiny apps.
+
+```{r}
+library(shiny)
+shinyAppDir(
+  system.file("examples/01_hello", package="shiny"),
+  options=list(
+    width="100%", height=250
+  )
+)
+shinyAppObj(
+  ui = fluidPage(
+    numericInput("n", "n", 1),
+    plotOutput("plot")
+  ),
+  server = function(input, output) {
+    output$plot <- renderPlot( plot(head(cars, input$n)) )
+  },
+  options=list(width=450)
+)
+```