title: r googleVis and Shiny embedded in r Markdown not rendering
body: <p>I would like to 1) implement r <code>googleVis</code> chart in <code>shiney</code> and 2) publish it with <code>r Markdown</code>. The first part was done successfully, see the simple version of my code: </p>
  
  <pre><code>library(googleVis)
  library(shiny)
  
  shinyApp(
    ui &lt;- fluidPage(
      h3('Example for the Stackoverflow Community'),
      htmlOutput('plot')
    ),
  
    server &lt;- function(input, output) {
      output$plot &lt;- renderGvis({
  
        DataF &lt;- data.frame(From=c('A', 'B', 'C'),
                                   To=c('D','D', 'E'),
                                   Ponder=c(1, 2, 1.5))
  
        Sankey = gvisSankey(DataF,from="From", to="To", weight="Ponder",
                            options=list(width = "1200",
                                         height = "600",
                                         sankey="{
                                       link: {colorMode: 'gradient', color: { fill: '#green' } },
                                       node: {label: { color: 'black'},nodePadding: 80, width:50, color: { fill: '#a61d4c'} },
                                       }"))
      })
    }
  )
  </code></pre>
  
  <p>After, I simply copied and pasted my code into RMarkdown template:</p>
  
  <pre><code>---
  title: "Example for the Stackoverflow Community"
  author: "JerryTheForester"
  date: "12 januar 2017"
  output: html_document
  runtime: shiny
  ---
  
  ```{r echo=F}
  library(googleVis)
  library(shiny)
  
  shinyApp(
    ui &lt;- fluidPage(
      h3('Example for the Stackoverflow Community'),
      htmlOutput('plot')
    ),
  
    server &lt;- function(input, output) {
      output$plot &lt;- renderGvis({
  
        DataF &lt;- data.frame(From=c('A', 'B', 'C'),
                                   To=c('D','D', 'E'),
                                   Ponder=c(1, 2, 1.5))
  
        Sankey = gvisSankey(DataF,from="From", to="To", weight="Ponder",
                            options=list(width = "1200",
                                         height = "600",
                                         sankey="{
                                       link: {colorMode: 'gradient', color: { fill: '#green' } },
                                       node: {label: { color: 'black'},nodePadding: 80, width:50, color: { fill: '#a61d4c'} },
                                       }"))
      })
    }
  )
  ```
  </code></pre>
  
  <p>The resulted output is shown here: <a href="https://i.stack.imgur.com/OMEAs.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/OMEAs.png" alt="enter image description here"></a></p>
  
  <p>Why shiny application is not rendering?</p>