headers.Rmd

---
title: "Minimal example"
author: "Chris Beeley"
date: "1 September 2015"
output: word_document
---

```{r setup, include=FALSE}

knitr::opts_chunk$set(echo = TRUE)

```

```{r, results = 'asis', echo = FALSE}

headings = letters[1:4]

invisible(
  
  sapply(headings, function(x){
    
    cat(paste0("#", x, "\n"))
    
    cat(paste0("<p>", rep("Some text here", 10), "</p>"))
    
  })
)