---
name: Andreas
surname: Gammelgaard Damsbo
position: "MD, PhD-student"
pronouns: he/him
address: "Danish Stroke Centre, Neurology, Aarhus University Hospital, Denmark"
phone: "+45 2490 3612"
www: "andreas.gdamsbo.dk"
email: "andrlr@rm.dk"
github: agdamsbo
date: "`r format(Sys.time(), '%B %Y')`"
docname: cv
output:
  vitae::awesomecv:
    page_total: true
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
library(vitae)
library(dplyr)
library(tibble)
library(rorcid)

orc_id <- "0000-0002-7559-1154"
get_new_pub_list <- FALSE

# Notes
# https://stackoverflow.com/questions/63067088/syntax-for-publication-list-with-full-authors
```

# About me

-   I am a medical doctor and PhD-student
-   I have a special interest in the relation between clinical focus on patients and data driven research

# Education

```{r}
library(tibble)
tribble(
  ~ Degree, ~ Year, ~ Institution, ~ Where,
  "cand.med", "2011-2018", "Aarhus University", "Aarhus, Denmark"
) %>%
  detailed_entries(Degree, Year, Institution, Where)
# ?tibble::tribble
```

# Publications

```{r}
# library(scholar)
# scholar_id <- "Y80Xqc4AAAAJ"
# l <- get_profile(scholar_id)
# scholar::get_publications(scholar_id) |> writeLines("publications.bib")
# bibliography_entries("publications.bib") %>%
#   arrange(desc(author$family), issued)
```

```{r}
if (get_new_pub_list | !file.exists("publications.bib")) {
  source("orcid_pubs.R")
  orcid_pubs(orc_id)
}

bibliography_entries("publications.bib") %>%
  arrange(desc(issued))
```
