R/reportHeader.R

In jasenfinch/metaboReports: Automated Report Generation For Metabolomics Analyses

reportHeader <- function(analysis,parameters){
  
  title <- parameters@title
  investigator <- parameters@investigator
  output <- parameters@output
  date <- parameters@date
  
  if (isTRUE(parameters@toc)) {
    toc <- str_c(
      'output: 
        ',output,':
          toc: true'
    )
  } else {
    toc <- str_c('output: "',output,'"')
  }
  
  header <- str_c(
'---
title: "',title,'"
',toc,'
author: "',investigator,'"
date: "',date,'"
---

```{r setup,echo=FALSE}
knitr::opts_chunk$set(cache = T,fig.align = "center",echo = F,cache.lazy = FALSE)
```

```{r libraryLoad,include=FALSE,cache = FALSE}
hrm::hrmAttach()
library(patchwork)
library(ggthemes)
library(DT)
```

'
  )
  return(header)
}