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


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