---
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",
  "ESOC 2024", "2024", "European Stroke Organisation", "Basel, Switzerland"
) %>% 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
```

\newpage

# Data science experience

## *R* packages on Zenodo and CRAN

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

Apart from the referenced CRAN-projects, I am also maintaining a number of other projects.

I have accepted work as a clinical data consultant in doing counselling and data management support for a number of smaller and bigger research projects. All by coding work is shared under open and public licenses, mainly on my own GitHub repository (see top).

## Courses

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