knitr::opts_chunk$set(
  results='asis', 
  echo = FALSE
)

source("cv_printing_functions.r")

# Read in all data and initialize a CV printer object
CV <- create_CV_object(
  data_location = "{{{data_location}}}",  
  pdf_mode = params$pdf_mode
)
# 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

{{#use_network_logo}}

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

{{/use_network_logo}} {{^use_network_logo}} logo{width=100%} {{/use_network_logo}}

if(params$pdf_mode){
  cat("View this CV online with links at _{{{html_location}}}_")
} else {
  cat("[<i class='fas fa-download'></i> Download a PDF of this CV]({{pdf_location}})")
}

Contact {#contact}

CV |> print_contact_info()

Language Skills {#skills}

CV |> print_skill_bars()

Disclaimer {#disclaimer}

Made with the R package pagedown.

The source code is available on github.com/nstrayer/cv.

Last updated on r Sys.Date().

Main

{{{full_name}}} {#title}

# Note the assignment back to CV. This is so the link stripping works properly in PDF mode
CV <- print_text_block(CV, "intro") 

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

CV <- print_section(CV, 'education')

Research Experience {data-icon=laptop}

CV <- print_section(CV, 'research_positions')

Industry Experience {data-icon=suitcase}

::: aside

CV <- print_text_block(CV, 'industy_experience_aside')

:::

CV <- print_section(CV, 'industry_positions')




Teaching Experience {data-icon=chalkboard-teacher}

::: aside

CV <- print_text_block(CV, 'teaching_experience_aside')

:::

CV <- print_section(CV, 'teaching_positions')

Selected Data Science Writing {data-icon=chart-line}

::: aside

CV <- print_text_block(CV, 'data_science_writing_aside')

:::

CV <- print_section(CV, 'data_science_writings')

Selected Press (About) {data-icon=newspaper}

CV <- print_section(CV, 'about_me_press')



Selected Press (By) {data-icon=newspaper}

CV <- print_section(CV, 'by_me_press')

Selected Publications, Posters, and Talks {data-icon=book}

CV <- print_section(CV, 'academic_articles')
print_links(CV)


nstrayer/datadrivencv documentation built on June 25, 2024, 3:23 a.m.