
:::{custom-style="institution"}
`r params$institution`
:::
  
:::{custom-style="faculty"}
`r params$faculty`
:::
  
```{r}
list.files(path = "files", pattern = paste0("logo-", params$theme), full.names = T) %>% 
  knitr::include_graphics()
```

:::{custom-style="title"}
`r params$title`
:::
  
:::{custom-style="cover"}
`r params$type`

`r params$author`

`r params$location`

`r params$date`
:::

