---
name: Andreas
surname: Gammelgaard Damsbo
position: "MD, PhD-fellow"
profilepic: portraitsq.jpg
pronouns: he/him
address: "Danish Stroke Centre, Neurology, Aarhus University Hospital"
# phone: +45 2490 3612
www: andreas.gdamsbo.dk
email: andrlr@rm.dk
orcid: 0000-0002-7559-1154
# googlescholar: Y80Xqc4AAAAJ
# researchgate: Andreas-Damsbo
github: agdamsbo
date: "`r format(Sys.time(), '%B %Y')`"
knit: (function(inputFile, encoding) {
      out_dir <- "docs";
      rmarkdown::render(inputFile,
                        encoding=encoding,
                        output_dir=file.path(dirname(inputFile), out_dir))})
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
-   I am a very happy *R*-user, educator and developer

# Medical experience

## Education

```{r Education}
library(tibble)
tribble(
  ~ what, ~ when, ~ who, ~ where,
  "cand.med", "2018", "Aarhus University", "Aarhus, Denmark",
  "Advanced R (PhD Course)", "2022", "Aarhus University", "Aarhus, Denmark",
  "Reproducible Research in R - Advanced", "2023","Aarhus University", "Aarhus, Denmark",
) %>% arrange(desc(when)) |> 
  detailed_entries(what, when, who, where)
# ?tibble::tribble
```

## Employment

```{r Employment}
library(tibble)
tribble(
  ~ what, ~ when, ~ who, ~ where,
  "Research Year Student", "2016-2017", "Neurology", "Aarhus Universitety Hospital, Denmark",
  "Residency (KBU)", "2018-2019", "Hospital Unit West", "Central Region Denmark, Denmark",
  "Research Assistant (14 months full time)", "2018, 2019, 2021", "Neurology", "Aarhus Universitety Hospital, Denmark",
  "First year of specialty training in Neurology", "2020", "Aarhus Universitety Hospital", "Aarhus, Denmark",
  "Visiting professor", "2023", "University of British Columbia, Vancouver", "BC, Canada",
) %>% arrange(desc(when)) |> 
  detailed_entries(who, when, what, where)
# ?tibble::tribble
```

# Conference attendance

```{r Conferences}
library(tibble)
tribble(
  ~ what, ~ when, ~ who, ~ where,
  "ESOC 2017", "2017", "European Stroke Organisation", "Prague, Czechia",
  "ESOC 2021", "2021", "European Stroke Organisation", "Online",
  "ESOC 2023", "2023", "European Stroke Organisation", "Munich, Germany",
  "WSC 2023", "2023", "World Stroke Organisation", "Toronto, Canada"
) %>% arrange(desc(when)) |> 
  detailed_entries(who, when, what, where)
# ?tibble::tribble
```

\newpage

# Publications

## Main author

```{r Publications}
if (get_new_pub_list | !file.exists("bib-files/publications.bib")) {
  source(here::here("R/functions.R"))
  suppressWarnings(orcid_pubs(orc_id))
}
## 13032024: I've resorted to manually update publications on non-journal publications as they are not correctly retrieved.

articles <- bibliography_entries("bib-files/publications.bib") %>% filter(type == "article-journal")

main_author <- do.call(c,lapply(articles$author,function(i,j){
  do.call(c,i)[[1]]=="Damsbo"
}))

articles |> filter(main_author) |> arrange(desc(issued))


# bibliography_entries(here::here("bib-files/agd-main.bib"))|> arrange(desc(issued))
```

## Co-author

```{r Coauthor}
articles |> filter(!main_author) |> arrange(desc(issued))
# bibliography_entries(here::here("bib-files/agd-coauth.bib"))|> arrange(desc(issued))
```

# Financing

```{r Funding}
library(tibble)
tribble(
  ~ why, ~ when, ~ what, ~ who,
  "Research FUnding", "2022", "DKK 100.000", "Lægeforeningens Forskningsfond",
  "Forskningsbevilling", "2016", "DKK 20.000","Selskab for Neurologisk Forskning",
  "Research Year Fellowship", "2015", "DKK 140.000", "Dansk Neurologisk Selskab"
) %>% arrange(desc(when)) |> 
  detailed_entries(what, when, who, why)
# ?tibble::tribble
```

# Data science experience

## *R* packages on Zenodo

```{r Others}
bibliography_entries(here::here("bib-files/agd-other.bib")) |> arrange(desc(issued))
```

## Courses

```{r}
library(tibble)
tribble(
  ~ what, ~ when, ~ who, ~ where,
  "Advanced R (PhD Course)", "2022", "Aarhus University", "Aarhus, Denmark",
  "Reproducible Research in R - Advanced", "2023","Aarhus University", "Aarhus, Denmark",
) %>% arrange(desc(when)) |> 
  detailed_entries(what, when, who, where)
# ?tibble::tribble
```