
`r paste("### ", currentDataset, collapse='\n')`

```{r, eval = T, echo=F, message= F, warning=F, results='hide'}
df <- summarizeData(site = currentSiteName, dataset = currentDataset)
``` 


 
```{r, eval = T, echo=F, message= F, warning=F}
pander(df, adding = 0, missing = '**--**', round = 3,  use.hyphening = TRUE, split.cells = 3, split.tables = 200, caption = tableCaption(paste("Summary of ", currentDataset, " for ", currentSiteName, ". Note: Average of the annual sum of the variables p_mm and rad_Jcm2day. Rest of variables, average of the annual mean values.", sep="")))
``` 
