---
title: "Publications"
format: html
---

> The table below gives a full publication list. The search bar accepts multiple keywords (author name(s), year, experiment name, journal title...) to filter the table. An overview of publications per experiment is also provided on the individual experiment pages.

```{r}
#| echo: false
#| message: false
#| results: asis
#| warning: false
#| column: page

library(readxl)
library(tidyverse)
library(DT)

research_pubs <- read_excel("data/publications.xlsx", sheet = 1) |>
  mutate(type = "research paper")
conceptual_pubs <- read_excel("data/publications.xlsx", sheet = 2) |> 
  mutate(type = "conceptual paper")
PhD_pubs <- read_excel("data/publications.xlsx", sheet = 3) |> 
  mutate(type = "PhD dissertation")

pubs <- rbind(PhD_pubs, conceptual_pubs,research_pubs)

datatable(pubs, 
          plugins = "ellipsis",
          options = list(
            columnDefs = list(
              list(targets = c(1),
                   render = JS("$.fn.dataTable.render.ellipsis(50, false )")
                   )
            ))
        )
```
