---
title: ""
date: "`r Sys.Date()`"
output:
  rmdformats::html_clean:
    highlight: kate
---


```{r knitr_init, echo=FALSE, cache=FALSE}
library(knitr)

## Global options
options(max.print="75")
opts_chunk$set(echo=FALSE,
	             cache=TRUE,
               prompt=FALSE,
               tidy=TRUE,
               comment=NA,
               message=FALSE,
               warning=FALSE)
opts_knit$set(width=75)
```


```{r init,  echo=FALSE, results="hide"}
library(ProjectTemplate)

if (!file.exists(file.path("config", "global.dcf")))
    setwd("../..")
if (!exists("project.data.loaded")) {
    load.project()
    project.data.loaded <- TRUE
}
```

