---
title: "Example report"
author: "<h4>Authors: <i>`r auths <- eval(parse(text = gsub('person','c',read.dcf('../DESCRIPTION', fields = 'Authors@R'))));paste(auths[names(auths)=='given'],auths[names(auths)=='family'], collapse = ', ')`</i></h4>" 
date: "<h4>Vignette updated: <i>`r format( Sys.Date(), '%b-%d-%Y')`</i></h4>"
output:
  BiocStyle::html_document:
vignette: >
    %\VignetteIndexEntry{example_report} 
    %\usepackage[utf8]{inputenc}
    %\VignetteEngine{knitr::rmarkdown} 
---
 
 
```R
script <- system.file("examples/atac_dnase_chip_example.R",package = "EpiCompare")
source(script)
```

```{r}
htmltools::includeHTML("https://github.com/neurogenomics/EpiCompare/releases/download/1.3.3/atac_dnase_chip_example.html")
```