s<-{{s}} siteAttr<-eval(parse(text= paste("data.frame(",map_siteAttributes.list[s],"=sitedata$",map_siteAttributes.list[s],")",sep=""))) titleAttr<-data_names[which(data_names$sparrowNames==map_siteAttributes.list[s]),] unitAttr<-titleAttr$varunits titleAttr<-as.character(titleAttr$explanation) mapdata<-data.frame(xlat,xlon,siteAttr) input<-list(var=NA, sizeBatch=NA,size=NA)
r titleAttr
```r},eval = TRUE, echo = FALSE,fig.width=8, fig.height=8, warning = FALSE, message = FALSE}
mapSiteAttributes(#Rshiny input,"", path_gis, sitedata, LineShapeGeo,data_names,FALSE, #regular names(siteAttr),mapdata,GeoLines,mapping.input.list,titleAttr,unitAttr,batch_mode)
```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.