```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'>") 


tbep-tech/tbepRSparrow documentation built on Oct. 9, 2020, 6:24 a.m.