resume.Rmd

---
title: "Chang-Yu Chang's resume"
author: Chang-Yu Chang
date: "`r Sys.Date()`"
output:
  pagedown::html_resume:
    # set it to true for a self-contained HTML page but it'll take longer to render
    css: ['css/styles.css', 
    'css/fontawesome-free-6.1.1-web/css/all.css',  #icon
    'css/academicons-1.9.2/css/academicons.css', # icon
    'resume']
    self_contained: true
---

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

library(glue)
library(tidyverse)
  
# Set this to true to have links turned into footnotes at the end of the document
PDF_EXPORT <- TRUE

# 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('research_positions', 'industry_positions') ~ 'positions', 
      section %in% c('data_science_writings', 'by_me_press') ~ 'writings',
      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
================================================================================


![Chang-Yu Chang](icon-192.png){width=80%}

```{r eval=F}
# When in export mode the little dots are unaligned, so fix that. 
if(PDF_EXPORT){
  cat("View this [CV online](https://www.changyuchang.name/pdf/resume.html)")
} else {
  cat("[<i class='fas fa-download'></i> Download a PDF of this CV](https://github.com/Chang-Yu-Chang/cv/raw/master/resume.pdf)")
}
```

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

- changyuchang5@gmail.com
- <i class="fa fa-twitter"></i> [changyu_chang](https://twitter.com/changyu_chang)
- <i class="fa fa-github"></i> [github](https://github.com/Chang-Yu-Chang)
- <i class="fa fa-google"></i> [google scholar](https://scholar.google.com.tw/citations?user=g273Ts8AAAAJ&hl=en)
- <i class="fa fa-link"></i> [personal webite](https://www.changyuchang.name/)
- For more information, please contact me via email.



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

The source code is available at [github.com/Chang-Yu-Chang/cv](https://github.com/Chang-Yu-Chang/cv).

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

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

Chang-Yu Chang 張昌祐 {#title}
--------------------------------------------------------------------------------


```{r}
intro_text <- ""

cat(sanitize_links(intro_text))
```


Professional Appointment and Education {data-icon=graduation-cap data-concise=true}
--------------------------------------------------------------------------------

```{r}
print_section(position_data, 'education')
```

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

```{r}
print_section(position_data, 'academic_articles')
```

Grants, Fellowships, and Awards {data-icon=money}
--------------------------------------------------------------------------------

```{r}
print_section(position_data, "honors")
```

References {data-icon=people-group}
--------------------------------------------------------------------------------

```{r}
print_section(position_data, "referees")
```