cv_long.Rmd

---
title: "Marina Vabistsevits's CV"
author: Marina Vabistsevits; adapted from Nick Strayer
date: "`r Sys.Date()`"
output:
  pagedown::html_resume:
    #css: ['css/styles.css', 'resume']
    css: ['css/custom_cv.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(glue)
library(tidyverse)

# ======================================================================
# 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

#positions_sheet_loc <- "https://docs.google.com/spreadsheets/d/1cAUCdOtBtNdFk1vZABzf4La1glpXvrJEsVhwo0ci2Lc/" ## CV for LD
positions_sheet_loc <- "https://docs.google.com/spreadsheets/d/1gespq6oxz3eTfZ50eRUxl8ED-Hp13aS9R5UhKW2LyGs/" # long CV


# 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 <- FALSE


CV_PDF_LOC <- "https://github.com/mvab/cv/cv.pdf"   ### TODO
CV_HTML_LOC <- "marinalearning.netlify.com/cv/"


# 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')
```



```{r}
# When in export mode the little dots are unaligned, so fix that. 
if(PDF_EXPORT){
  cat("
  <style>
  :root{
    --decorator-outer-offset-left: -6.5px;
  }
  </style>")
}
```



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


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

```{r}
## When in export mode the little dots are unaligned, so fix that. 
#if(PDF_EXPORT){
#  glue("View this CV online with links at _{CV_HTML_LOC}_")
#} else {
#  glue("[<i class='fas fa-download'></i> Download a PDF of this CV]({CV_PDF_LOC})")
#}
```

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

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



Tech Skills {#skills}
--------------------------------------------------------------------------------

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

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

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


<br>
<br>
<br><br>
<br>
<br><br>
<br>
<br><br>
<br>
<br>

CV made with the R package [**pagedown**](https://github.com/rstudio/pagedown). 

Code available at [github.com/mvab/cv](https://github.com/mvab/cv).

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


<br>
<br>
<br>



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')
```


<!--- somehow this thing keeps page 2 on a single page--->
:::aside
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
:::


Hackathons / challenges {data-icon=code}
--------------------------------------------------------------------------------

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


Publications {data-icon=book}
--------------------------------------------------------------------------------

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

Other publications are available in [Google Scholar](https://scholar.google.com/citations?hl=en&user=dNzt4QYAAAAJ&view_op=list_works&sortby=pubdate) profile





<!--
<br>

Extracurricular participation {data-icon=code}
--------------------------------------------------------------------------------

```{r}
position_data %>% print_section('participation')
```
-->


```{r}
if(PDF_EXPORT){
  cat("
  
Links {data-icon=link}
--------------------------------------------------------------------------------

<br>


")
  
  walk2(links, 1:length(links), function(link, index){
    print(glue('{index}. {link}'))
  })
}
```