investigators.qmd

---
title: "Investigators"
---

```{r, echo = FALSE, include = FALSE}
library(yaml)
library(tidyverse)
library(here)
source(here("funs.R"))

# Read info and set links to include
proj_yml <- read_yaml(here("projects.yml"))
athr_yml <- read_yaml(here("authors.yml"))
lnk_cls  <- "{.link-box}"

# Only include authors with a bio and a project listed in projects.yml
projs <- names(proj_yml)

athr_yml <- athr_yml %>%
  keep(~ {
    !is.null(.x$project) &&
      any(.x$project %in% projs) &&
      !is.null(.x$bio)
  })

# Set project links
proj_lnks <- proj_yml %>%
  imap(~ .create_project_link(.x$title, str_to_title(.y), "{.link-box-fade}"))

# Create page text
# unable to include table of contents and have the image inline with heading
text <- athr_yml %>%
  imap(~ {
    lnks <- .x$links %>%  # links to project pages
      imap(~ str_c(.add_link_icon(.y), "(", .x, ")", lnk_cls)) %>%
      str_c(collapse = " ")

    lnks <- proj_lnks[.x$project] %>%
      str_c(collapse = " ") %>%
      str_c(lnks, " ", .)
    
    sfx <- ""
    
    if (!is.null(.x$suffix)) sfx <- str_c(", ", .x$suffix)
    
    res <- str_c(
      "<h2>", .y, sfx, "</h2>\n\n",
      lnks, "\n\n",
      .x$bio, "\n\n"
    )
    
    # Add image for each investigator
    if (!is.null(.x$image)) {
      img <- str_remove(.x$image, here())
      
      html_head <- str_c(
        "<div class='investigator-image'>\n",
        "  <img src='", img, "'>\n"
      )
      
      res <- str_c(html_head, res, "</div>\n\n")
    }
    
    res
  }) %>%
  str_c(collapse = "")
```

`r text`