resume.Rmd

---
title: "JP Flores' Resume"
author: JP Flores
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
knit: pagedown::chrome_print
---


```{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
positions_sheet_loc <- "https://docs.google.com/spreadsheets/d/1kzVjmxlzmNsFXYa_A9A6OpZcMWZC1zOY62Ra5Xd9OPE/edit?usp=sharing"

# 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


# 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_experience', 'professional_experience') ~ 'positions', 
      section %in% c('invited_talks', 'academic_articles') ~ 'featured',
      TRUE ~ section
    )
  ) 
```



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


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

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

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

```{r}
build_skill_bars(skills)
```

Featured Awards & Accolades {#awards}
--------------------------------------------------------------------------------
```{r}
resume_awards %>% print_resume_awards('awards')
```

More info {#more-info}
--------------------------------------------------------------------------------
See full CV at [jpflores-13.github.io/cv/](https://jpflores-13.github.io/cv/cv.html)


Disclaimer {#disclaimer}
--------------------------------------------------------------------------------

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

Source code: [github.com/jpflores-13/cv](https://github.com/jpflores-13/cv).

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



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

JP Flores {#title}
--------------------------------------------------------------------------------

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



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

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



Research & Professional Experience {data-icon=suitcase}
--------------------------------------------------------------------------------

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



Featured Talks {data-icon=newspaper}
--------------------------------------------------------------------------------

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