change dimensions of shiny app embedded in r markdown HTML
<p>I have an embedded shiny app within an r markdown script which is knit to HTML. Currently when I knit the r markdown chunk that contains the shiny app, the app is not shown in the full size.  r markdown includes the shiny app within a smaller 'window' where I need to use a window slider/scroller to view the entire app.  </p>

<p>I think this is an r markdown issue and have tried to change the chunk dimensions with <code>fig.width</code> and <code>fig.height</code>, but to no avail.</p>

<p>I want the shiny app to be shown in the full extent where I can view the entire plot and the included slider bar in a single view.</p>

<p>Any suggestions would be appreciated.  A reproducible r markdown script is provided below with data included from <code>dput</code>.  Any suggestions would be greatly appreciated.</p>

<pre><code>---
output: html_document
runtime: shiny
---

```{r Packages, include=FALSE}
library(ggplot2)
library(shiny)
```


```{r Data, include=FALSE}
dat &lt;- structure(list(AcquisitionStartTime = structure(c(1L, 2L, 5L, 
6L, 8L, 9L, 10L, 12L, 13L, 14L, 15L), .Label = c("2013.02.09 00:00:00", 
"2013.02.09 06:00:00", "2013.02.09 12:00:00", "2013.02.09 18:00:00", 
"2013.02.10 00:00:00", "2013.02.10 06:00:00", "2013.02.10 12:00:00", 
"2013.02.10 18:00:00", "2013.02.11 00:00:00", "2013.02.11 06:00:00", 
"2013.02.11 12:00:00", "2013.02.11 18:00:00", "2013.02.12 00:00:00", 
"2013.02.12 06:00:00", "2013.02.12 12:00:00"), class = "factor"), 
    GPSUTMNorthing = c(4947787L, 4947945L, 4947957L, 4947954L, 
    4947797L, 4947835L, 4947825L, 4947784L, 4947842L, 4947839L, 
    4947789L), GPSUTMEasting = c(600201L, 600910L, 600911L, 600907L, 
    601052L, 601038L, 601031L, 601066L, 600998L, 600995L, 601058L
    )), .Names = c("AcquisitionStartTime", "GPSUTMNorthing", 
"GPSUTMEasting"), row.names = c(1L, 2L, 5L, 6L, 8L, 9L, 10L, 
12L, 13L, 14L, 15L), class = "data.frame")
```



```{r Time, include=FALSE}
dat$PosiGMT &lt;- as.POSIXct(strptime(as.character(dat$AcquisitionStartTime),"%Y.%m.%d %H:%M:%S"))
```

### Header One: 
Headers, text, and figures here...


### Interactive shinyApp
```{r, echo = FALSE, fig.height=6}
shinyApp(
ui &lt;- fluidPage(
          titlePanel("GPS Data Summary"),
          sliderInput(inputId = "Date",
                  label = "Sequance of Observations",  
                  min = as.Date(min(dat$PosiGMT)), max = as.Date(max(dat$PosiGMT)),
                  value = as.Date(min(dat$PosiGMT))),
                  #animate = animationOptions(interval=75, loop=T)),
          plotOutput("PointPlot")
            ),

server &lt;- function(input, output) {
            output$PointPlot &lt;- renderPlot({
              p &lt;- ggplot(dat[as.Date(dat$PosiGMT) &lt;= input$Date ,], 
                          (aes(x = GPSUTMEasting, y = GPSUTMNorthing ))) + 
                geom_point() + geom_path() + 
                xlim( min(dat$GPSUTMEasting), max(dat$GPSUTMEasting))+
                ylim( min(dat$GPSUTMNorthing), max(dat$GPSUTMNorthing))
              print(p)
              })
}

)
```


### More headers below 
More text and figures here...    
</code></pre>