Inline and external apps in Rmd

test.Rmd

---
title: " Embedded Shiny Apps"
runtime: shiny
output:
  html_document:
    theme: united	
---

## Setup

```{r}
library("rmarkdown")
library("shiny")
packageVersion("shiny")
packageVersion("rmarkdown")
```

Pandoc version 1.12.4.2. 

## Compile vignette

```{r, eval=FALSE}
rmarkdown::run("test.Rmd")
```

## Inline App

```{r, echo = FALSE}
shinyApp(
  
  ui = fluidPage(
    selectInput("region", "Region:", 
                choices = colnames(WorldPhones)),
    plotOutput("phonePlot")
  ),
  
  server = function(input, output) {
    output$phonePlot <- renderPlot({
      barplot(WorldPhones[,input$region]*1000, 
              ylab = "Number of Telephones", xlab = "Year")
    })
  },
  
  options = list(height = 500)
)
```


## External App

```{r, echo = FALSE}
shinyAppDir(
  system.file("examples/06_tabsets", package="shiny"),
  options=list(
    width="100%", height=700
  )
)
```