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

```{r, eval = T, echo=F, message= F, warning=F, results='hide'}
plotData(site = currentSiteName, dataset = currentDataset, automaticPanels = T)
df <- summarizeData(site = currentSiteName, dataset = currentDataset)
df2 <- summarizeData(site = currentSiteName, dataset = currentDataset, by="total")
df <- rbind(df, df2)
``` 


 
```{r, eval = T, echo=F, message= F, warning=F}
pander(df, adding = 0, missing = '**--**', digits = 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="")))
``` 
