cv/cv_short.Rmd at master · mvab/cv · 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
142
143
144
145
146
147
148
149
150
151
152
153
154
155
---
title: Marina Vabistsevits's Resume"
author: MV; adapted from Nick Strayer
date: "`r Sys.Date()`"
output:
  pagedown::html_resume:
    css: ['css/custom_resume.css', 'css/styles.css', 'resume']
    # set it to true for a self-contained HTML page but it'll take longer to render
    self_contained: true
---


```{r, include=FALSE}
knitr::opts_chunk$set(
  results='asis',
  echo = FALSE
)
library(tidyverse)
library(glue)

# ======================================================================
# These variables determine how the the data is loaded and how the exports are
# done.

# Is data stored in google sheets? If no data will be gather from the csvs/
# folder in project
using_googlesheets <- TRUE

# Just the copied URL from the sheet
#####  Short vesrion #####
positions_sheet_loc <- "https://docs.google.com/spreadsheets/d/1Bs6Ii4yAAIV1Jy_R6EhdtgVUbsmtRQhn17StF6uzH0o"

# Is this sheet available for anyone to read? If you're using a private sheet
# set this to false and go to gather_data.R and run the data loading manually
# once to cache authentication
sheet_is_publicly_readable <- TRUE

# Is the goal of this knit to build a document that is exported to PDF? If so
# set this to true to have links turned into footnotes at the end of the
# document
PDF_EXPORT <- TRUE


# A global (gasp) variable that holds all the links that were inserted for
# placement at the end
links <- c()

# ======================================================================
# Now we source two external scripts. One contains functions for building the
# text output and the other loads up our data from either googlesheets or csvs

# Functions for building sections from CSV data
source('parsing_functions.R')

# Load data for CV/Resume
source('gather_data.R')

# Now we just need to filter down the position data to include less verbose
# categories and only the entries we have designated for the resume
#position_data <- position_data %>%
#  filter(in_resume) %>%
#  mutate(
#    # Build some custom sections by collapsing others
#    section = case_when(
#      section %in% c('research_positions', 'industry_positions') ~ 'positions',
#      section %in% c('data_science_writings', 'by_me_press') ~ 'writings',
#      TRUE ~ section
#    )
#  )
```


Aside
================================================================================


![logo](logo.png){width=100%}

Contact {#contact}
--------------------------------------------------------------------------------

```{r}
contact_info %>%
  glue_data("- <i class='fa fa-{icon}'></i> {contact}")
```


Tech Skills {#tech_skills}
--------------------------------------------------------------------------------

```{r}
build_skill_bars(tech_skills)
```

Other Skills {#other_skills}
--------------------------------------------------------------------------------

```{r}
build_skill_bars(other_skills, bar_color = "#ebcc2a")
```

<br>

### For fun I like to

-attend in BristolR and PyData meetups
-listen to Data Science podcasts
-participate in hackathons / data challenges

<br>
See full CV at [marinalearning.netlify.com/cv](https://marinalearning.netlify.com/cv.pdf)

Made w/ [**pagedown**](https://github.com/rstudio/pagedown).

Last updated on `r Sys.Date()`.


Main
================================================================================

Marina Vabistsevits {#title}
--------------------------------------------------------------------------------

```{r}
print_text_block(text_blocks, 'intro')
```


Education {data-icon=graduation-cap data-concise=true}
--------------------------------------------------------------------------------

```{r}
position_data %>% print_section('education')
```


Research Experience {data-icon=laptop}
--------------------------------------------------------------------------------

```{r}
position_data %>% print_section('research_positions')
```


Industry Experience {data-icon=suitcase}
--------------------------------------------------------------------------------

```{r}
position_data %>% print_section('industry_positions')
```