---
title: "Comprehensive affiliation schema"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{Comprehensive affiliation schema}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

```{r, include = FALSE}
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")
library(plume)
```

Quarto provides a complete [affiliation schema](https://quarto.org/docs/journals/authors.html#affiliations-schema) to define affiliations in more detail.

To generate comprehensive affiliations in plume, you can specify affiliation items in the input data using the following syntax `key_1=item_1 key_2=item_2 key_n=item_n`. `PlumeQuarto` will automatically parse affiliations and assign each item to its respective key.

Affiliations with no or unrecognised keys are assigned to the `name` key.

```{r}
author <- tibble::tibble(
  given_name = "René",
  family_name = "Descartes",
  affiliation1 = "Collège royal Henri-le-Grand",
  affiliation2 = "
  city=Poitiers
  name=Université de Poitiers
  address=15 Rue de l'Hôtel Dieu
  country=Kingdom of France
  ",
  affiliation3 = "name=Academia Franekerensis country=The Netherlands city=Franeker"
)
```

```{r, include = FALSE}
tmp_file <- withr::local_tempfile(
  lines = "---\ntitle: Cogito ergo sum\n---",
  fileext = ".qmd"
)
aut <- PlumeQuarto$new(author, tmp_file)
```

```{r, eval = FALSE}
aut <- PlumeQuarto$new(author, file = "file.qmd")
aut$to_yaml()
```

The above will produce the following YAML header:

```{r, echo = FALSE, comment = ""}
aut$to_yaml()
cat(readr::read_file(tmp_file))
```