```r},eval = TRUE, echo = FALSE} evalPlotly<-ifelse(enable_plotlyMaps=="yes",TRUE,FALSE) notPlotly<-ifelse(enable_plotlyMaps=="no",TRUE,FALSE)
```r},eval = evalPlotly, echo = FALSE, out.width="750px", out.height="750px", warning = FALSE, message = FALSE} n<-{{n}} map.list<-mapTypes[n] diagnosticMaps(mapColumn,mapdata,GeoLines, map.list,strTitle,mapping.input.list,sitedata)
```r},eval = notPlotly, echo = FALSE, fig.width=8, fig.height=8, warning = FALSE, message = FALSE}
n<-{{n}}
map.list<-mapTypes[n]
diagnosticMaps(mapColumn,mapdata,GeoLines,
map.list,strTitle,mapping.input.list,sitedata)
```r}, results='asis', echo=FALSE} cat("<P style='page-break-before: always'>")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.