# 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
  )
)
shinyApp(
  ui = fluidPage(
    numericInput("n", "n", 1),
    plotOutput("plot")
  ),
  server = function(input, output) {
    output$plot <- renderPlot( plot(head(cars, input$n)) )
  },
  options=list(width=450)
)
```