cv/cv.Rmd

---
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)
library(RefManageR)

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, with a focus of stroke treatment and prevention.
-   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"
) %>% arrange(desc(when)) |> 
  detailed_entries(who, when, what, where)
# ?tibble::tribble
```

# Academic experience

## Positions

```{r Positions}
tribble(
  ~ what, ~ when, ~ who, ~ where,
  "PhD-fellow: Physical activity and Stroke", "2022-2025", "Health, Aarhus University", "Denmark",
  "Visiting professor", "2023", "University of British Columbia, Vancouver", "BC, Canada"
) %>% arrange(desc(when)) |> 
  detailed_entries(who, when, what, where)
# ?tibble::tribble
```

## International 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
```

## Supervision and collaboration

I have supervised several peers on research projects including medical master and bachelor students as well as other health professionals.

I am also involved in a number of ongoing health research project with collaborators from Denmark, Canada, Tanzania and China.

# 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.
## 28032025: If metadata is correct on Zenodo, data comes through, but are more easily currated manually

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,
  "Scholarship", "2024", "DKK 600.000", "Steno Diabetes Center Aarhus",
  "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

## Selected *R* packages on Zenodo and CRAN

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

I have completed work as a clinical data consultant in doing counselling and data management support for a number of smaller and bigger research projects. All my coding work is shared under open and public licenses, mainly on my 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
```