---
title: {{{ TITLE }}}
output: {{{ OUTPUT_FORMAT }}}
params: 
  inputDir: "analyzed/"
  thisDir:  "present/"
  outputDir: "presented/"
  fileStem: {{{ FILE_STEM }}}
  inputFiles: 
    {{{ INPUT_FILES }}}
---

```{r KnitrOpts, echo=FALSE}
knitr::opts_knit$set(root.dir = normalizePath('../'))
knitr::opts_chunk$set(echo=FALSE, message=FALSE, warning=FALSE, error=TRUE, results='asis')
```

```{r Load, results='hide'}
loadedObjects <- represtools::LoadObjects(params)
```

```{r}
# Present some data!
```

```{r Save}
allGood <- TRUE

if (allGood) {
  save(file = represtools::OutputFile(params)
     , list = lstObjects)
}
```
