cv.rmd

---
title: "Kevin Stachelek's CV"
author: Kevin Stachelek
date: "`r Sys.Date()`"
params:
  pdf_mode:
    value: false
output:
  pagedown::html_resume:
    css: ['dd_cv.css', resume]
    self_contained: true
---

```{r, include=FALSE}

knitr::opts_chunk$set(
  results='asis', 
  echo = FALSE
)
library(datadrivencv)
library(magrittr) # For the pipe
source("cv_printing_functions.r")

# Read in all data and initialize a CV printer object
CV <- create_CV_object(
  data_location = "https://docs.google.com/spreadsheets/d/1IY5sQS_JlNAYvsmCaEVTNHl6Zl7dOuhY4ulfnAeBBJ0/edit?usp=sharing",  
  pdf_mode = params$pdf_mode
)



```

```{css}
.pagedjs_page:not(:first-of-type) {
  --sidebar-width: 0rem;
  --sidebar-background-color: #ffffff;
  --main-width: calc(var(--content-width) - var(--sidebar-width));
  --decorator-horizontal-margin: 0.2in;
}

.details .location{
  display: none;
}
```

<script src="https://kit.fontawesome.com/bee4f5cfa6.js" crossorigin="anonymous"></script>

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


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

```{r}
# Build interactive network of positions colored by section
# and connected if they occurred in the same year
#datadrivencv::build_network_logo(CV$entries_data)
```


<center>
<img src="rr.jpeg" width = "80%" style = "border-radius:80px">
</center>

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

```{r}
CV %>% print_contact_info()
```

<!-- Language Skills {#skills} -->
<!-- -------------------------------------------------------------------------------- -->
Key Interests
--------------------------------------------------------------------------------

- `r fontawesome::fa("chart-line")` Aphasia treatment outcomes

- `r fontawesome::fa("hospital-user")` Implementation Science

- `r fontawesome::fa("chart-pie")` Quantitative Methods


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

```{r}
if(!params$pdf_mode){
    cat("[<i class='fas fa-download'></i> Download a PDF of this CV](https://github.com/whtns/stchlk_distill/raw/master/CV/cv.pdf)")
}
```


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

CV generated using {RMarkdown}


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

Kevin Stachelek {#title}
--------------------------------------------------------------------------------
<div style="font-size:14px;padding:0px;margin:0px;"></div> 

```{r}
# Note the special double pipe so we modify the CV object in place
CV %<>% print_text_block("intro") 
```



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

```{r}
CV %<>% print_section('education')
```



Appointments & Positions {data-icon=briefcase data-concise=true}
--------------------------------------------------------------------------------

```{r}
CV %<>% print_section('positions')
```


Publications {data-icon=file-alt}
--------------------------------------------------------------------------------


```{r class.source="pubs"}
CV %<>% print_section('publications', glue_template = "citation")
```


Refereed Presentations {data-icon=chalkboard-teacher}
--------------------------------------------------------------------------------

```{r}
CV %<>% print_section('presentations', glue_template = "citation")
```

Teaching {data-icon=university}
--------------------------------------------------------------------------------

```{r}
CV %<>% print_section('teaching', glue_template = "other")
```


Honors and Awards {data-icon=award}
--------------------------------------------------------------------------------


```{r}
CV %<>% print_section('honors', glue_template = "other")
```


Software {data-icon=laptop}
--------------------------------------------------------------------------------


```{r}
CV %<>% print_section('software', glue_template = "other")
```