mathiselling.github.io/index.qmd at main · mathiselling/mathiselling.github.io · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
---
echo: false
editor_options:
  chunk_output_type: console
---

```{r}
#| include: false

library(tidyverse)
library(readxl)
library(knitr)
library(kableExtra)
```

```{r}
#| include: false

df01 <- read_delim("cv.csv", delim = ";", escape_double = FALSE, trim_ws = TRUE)

df02 <- df01 %>%
  mutate(
    Link = paste0('<a href="', Link, '" target="_blank">', "Link", '</a>'),
    Authors = str_replace(Authors, "Elling", "<strong>Elling</strong>")
  )
```

# Preprints

```{r}

df02 %>%
  filter(Type == "Preprint") %>%
  select(-Type) %>%
  arrange(desc(Year)) %>%
  kable(escape = FALSE, format = "html")
```

# Publications (`r df02 %>% filter(Type == "Reviewed") %>% nrow()`)

```{r}

df02 %>%
  filter(Type == "Reviewed") %>%
  select(-Type) %>%
  arrange(desc(Year)) %>%
  kable(escape = FALSE, format = "html")
```

# Software

```{r}

df02 %>%
  filter(Type == "Software") %>%
  select(-c(Type, Journal, Authors)) %>%
  arrange(desc(Year)) %>%
  kable() %>%
  column_spec(3, link = TRUE)
```

# Conferences

```{r}

df02 %>%
  filter(Type == "Presentation") %>%
  select(-c(Type, Journal, Authors)) %>%
  arrange(desc(Year)) %>%
  kable() %>%
  column_spec(3, link = TRUE)
```

# In the Media

```{r}

df02 %>%
  filter(Type == "Print") %>%
  select(-c(Type, Authors)) %>%
  arrange(desc(Year)) %>%
  kable() %>%
  column_spec(4, link = TRUE)
```