/
kate_dibiasky_vitae_cv.Rmd
150 lines (124 loc) · 4.05 KB
/
kate_dibiasky_vitae_cv.Rmd
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
142
143
144
145
146
147
148
149
150
---
name: Kate
surname: Dibiasky
position: "PhD Candidate"
profilepic: "img/kate.jpeg"
address: "School of Astronomy, Michigan State University"
# phone: +1 22 3333 4444
# www: mariecurie.com
email: "k.dibiasky@gmail.com"
twitter: DontLookUpFilm
github: shaziaruybal/automate-cv-rmd
# linkedin: mariecurie
aboutme: "I have recently discovered Comet Dibiasky that is approximately 10-15km in size, and based on my orbital calculations is estimated to strike Earth in 6 months and 14 days"
date: "`r format(Sys.time(), '%B %Y')`"
headcolor: 414141
output:
vitae::awesomecv:
page_total: true
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
library(vitae)
library(here)
```
```{r functions}
readExcelSheets <- function(filename){
# read all sheets in .xlsx
all <- readxl::excel_sheets(filename)
# import each sheet into a list using readxl::read_excel
list <- lapply(all, function(x) readxl::read_excel(filename, sheet = x))
# save sheet name for each sheet (list)
names(list) <- all
# breaks up list and creates a dataframe for each sheet with df names matching sheet names
list2env(list, envir = .GlobalEnv)
}
```
```{r load-data, message=F, results='hide'}
filename <- here::here("kate_dibiasky_vitae_cv", "dibiasky_vitae_data.xlsx")
readExcelSheets(filename)
```
<!-- # Some stuff about me -->
<!-- * I poisoned myself doing research. -->
<!-- * I was the first woman to win a Nobel prize -->
<!-- * I was the first person and only woman to win a Nobel prize in two different sciences. -->
# Education
I am a Teaching Assistant in the Astronomy Department and am passionate about playing a positive role in shaping the new generation of astronomers.
```{r}
# library(tibble)
# tribble(
# ~ Degree, ~ Year, ~ Institution, ~ Where,
# "Informal studies", "1889-91", "Flying University", "Warsaw, Poland",
# "Master of Physics", "1893", "Sorbonne Université", "Paris, France",
# "Master of Mathematics", "1894", "Sorbonne Université", "Paris, France"
# ) %>%
# detailed_entries(Degree, Year, Institution, Where)
education %>%
detailed_entries(what = degree,
when = year,
with = institution,
where = where,
why = details)
```
# Research experience
```{r}
research %>%
detailed_entries(what = role,
when = dates,
with = institution,
where = where,
why = details)
```
# Industry experience
```{r}
industry %>%
detailed_entries(what = role,
when = dates,
with = institution,
where = where,
why = details)
```
# Leadership experience
```{r}
leadership %>%
detailed_entries(what = role,
when = dates,
with = institution,
where = where,
why = details)
```
\newpage
# Language skills
```{r}
skills %>%
brief_entries(when = skill) # ,
# with = level)
```
<!-- # Nobel Prizes -->
<!-- ```{r} -->
<!-- tribble( -->
<!-- ~Year, ~Type, ~Desc, -->
<!-- 1903, "Physics", "Awarded for her work on radioactivity with Pierre Curie and Henri Becquerel", -->
<!-- 1911, "Chemistry", "Awarded for the discovery of radium and polonium" -->
<!-- ) %>% -->
<!-- brief_entries( -->
<!-- glue::glue("Nobel Prize in {Type}"), -->
<!-- Year, -->
<!-- Desc -->
<!-- ) -->
<!-- ``` -->
# Publications
```{r}
# library(dplyr)
# knitr::write_bib(c("vitae", "tibble"), "packages.bib")
#
# bibliography_entries("packages.bib") %>%
# arrange(desc(author$family), issued)
#
bibliography_entries(here("kate_dibiasky_vitae_cv", "papers.bib"))
```
## Another way to display publications is using R Markdown. You can also use latex commands throughout the document:
\setlength{\leftskip}{0cm}
**2022**
\setlength{\leftskip}{1cm}
[**Dibiasky, K.** and Mindy, R. (2022). *Discovery of a novel comet, Comet Dibiasky, heading towards Earth.* Science.](https://media.giphy.com/media/q9CS6tp1oM45pmj19U/giphy.gif)