index.Rmd

---
title: Michael Kulbida's Resume"
author: Michael Kulbida
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)

# Set this to true to have links turned into footnotes at the end of the document
PDF_EXPORT <- FALSE

# Holds all the links that were inserted for placement at the end
links <- c()

source('parsing_functions.R')


# First let's get the data, filtering to only the items tagged as
# Resume items
position_data <- read_csv('positions.csv') %>% 
  filter(in_resume) %>% 
  mutate(
    # Build some custom sections by collapsing others
    section = case_when(
      section %in% c( 'industry_positions') ~ 'positions', 
      section %in% c('presentations_training') ~ 'presentations',
      section %in% c('volunteer_experience') ~ 'volunteer',
      section %in% c('recognitions') ~ 'recognitions',
      section %in% c('references') ~ 'references',
      TRUE ~ section
    )
  ) 

```

```{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](social work.jpg){width=100%}

```{r}
# When in export mode the little dots are unaligned, so fix that. 
if(PDF_EXPORT){
  cat("View this CV online with links at https://mkulbida.github.io/CV/resume.pdf")
} else {
  cat("[<i class='fas fa-download'></i> Download a PDF of this CV](https://github.com/mkulbida/cv/blob/main/resume.pdf)")
}
```

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



- <i class="fa fa-envelope"></i> mkulbida@yahoo.com
- <i class="fa fa-phone"></i> (773) 620-9400


More info {#more-info}
--------------------------------------------------------------------------------

Data visualization examples available upon request.


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

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

Source code: [github.com/nstrayer/cv](https://github.com/nstrayer/cv).

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




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

Michael Kulbida {#title}
--------------------------------------------------------------------------------

```{r}
intro_text <- "My passion lies in providing effective interventions to child and family programs utilizing data based management, analytics, and visualization. I have lead the creation of multiple public programs involving the child welfare population and promotion of high-quality early chlidhood education. 

I am currently searching for a position within the public sphere that will allow me to utilize my knowledge of early childhood and leverage my data analysis and program evaluation skills. 
"


cat(sanitize_links(intro_text))
```



Work Experience {data-icon=suitcase data-concise=true}
--------------------------------------------------------------------------------

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



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

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

Presentations and Trainings {data-icon=chalkboard-teacher}
--------------------------------------------------------------------------------

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


Volunteer Experience {data-icon=hands-helping}
--------------------------------------------------------------------------------

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

Honours and Recognitions {data-icon=award}
--------------------------------------------------------------------------------

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

References {data-icon=address-card}
--------------------------------------------------------------------------------

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

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

<br>


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