CVExample/CV.Rmd at master · bischrob/CVExample · 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
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
---
name: Leopard
surname: Seal
position: "Hunter"
address: |
  | Iceberg 3
  | Antartica
phone: 555 555 555
www: rjbischo.github.io
email: leopard@penguins.notawebsite
twitter: nope
github: nope
linkedin: nope
docname: "CV"
date: "`r format(Sys.time(), '%B %Y')`"
headcolor: "414141"
output:
  vitae::awesomecv
editor_options:
  chunk_output_type: console
csl: plos-one.csl
---


```{r setup, include=FALSE, echo=FALSE}
knitr::opts_chunk$set(echo = FALSE,
                      warning = FALSE,
                      message = FALSE)
# libraries
library(dplyr)
library(tidyr)
library(magrittr)
library(RefManageR)
library(vitae)
library(rio)
library(lubridate)
library(here)
if(!require(bibtex))remotes::install_github("ROpenSci/bibtex")
i_am("CV.Rmd")
# load CV data
CVdata <-
  rio::import(here("CVdata.xlsx")) %>%
  dplyr::filter(is.na(Exclude)) %>%
  dplyr::mutate_at(dplyr::vars(start), lubridate::ymd) %>%
  dplyr::arrange(dplyr::desc(start))

# load bibliographic data
BibOptions(
  first.inits = F,
  style = "latex",
  dashed = F,
  max.names = 20
)
shell(paste0("./","highlightName.ps1"," '","Publications.bib","'"),
      shell = "powershell")
shell(paste0("./","highlightName.ps1"," '","ProfessionalPresentations.bib","'"),
      shell = "powershell")
shell(paste0("./","highlightName.ps1"," '","PublicPresentations.bib","'"),
      shell = "powershell")
bib1 <- RefManageR::ReadBib('Publications.bib')
bib2 <- RefManageR::ReadBib('ProfessionalPresentations.bib')
bib3 <- RefManageR::ReadBib('PublicPresentations.bib')
```

# Education

```{r}
CVdata %>%
  dplyr::filter(section == "Education") %>%
  vitae::detailed_entries(what = what,when = when,with = with)
```

<!-- # Skills -->

```{r echo=FALSE, include=F}
# currently not included Need to add # Skills if included and set include to T
CVdata %>%
  dplyr::filter(section == "Skills") %>%
  dplyr::arrange(what) %>%
  vitae::detailed_entries(what = what, why = details)
```

# Research interests

```{r echo=FALSE}
interests <- CVdata %>%
  dplyr::filter(section == "Research Interests") %>%
  dplyr::select(what) %>% extract2(1)
```

`r interests`

# Publications

```{r results='asis'}
print(bib1)
```

# Research Experience

```{r}
CVdata %>%
  dplyr::filter(section == "Research Experience") %>%
  vitae::detailed_entries(
    what = what,
    when = when,
    where = where,
    why = details
  )
```

# Professional Presentations

```{r results='asis'}
print(bib2)
```

# Public Presentations

```{r results='asis'}
print(bib3)
```


# Service

```{r include = T}
CVdata %>%
  dplyr::filter(section == "Service") %>%
  vitae::detailed_entries(what, when, with, where)
```


# Awards

```{r}
CVdata %>%
  dplyr::filter(section == "Awards") %>%
  vitae::brief_entries(what, when)
```