knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE)
here::i_am("CV-KS-Hyndman/CV-KS-Hyndman.Rmd")
library(here)
library(readr)
library(vitae)
library(tibble)

source(here("R/latex_helper.R"))
cv <- read_rds(here("data/cv_raw.Rds"))

Current Positions

cv$work %>% 
  detailed_entries(
    what = Title,
    with = Unit,
    when = glue::glue("{Start_yr} - {End_yr}")
  )

Educations

cv$edu %>% 
  mutate(Details = latex_color(Details, "gray", .na = "")) %>% 
  detailed_entries(what = Degree,
                   when = glue::glue("{Start_yr} - {End_yr}"),
                   with = Institution,
                   where = Details,
                   .protect = FALSE
                   )

Medical Competency Assessment

cv$nl2 %>% 
  detailed_entries(
    what = Step,
    when = Yr,
    why = Text
  )

Academic Trainings

cv$acad %>% 
  mutate(link = latex_hyperlink("Link", Certificate),
         link = paste0("--- Certificate: ", link))
cv$acad[1:3, ] %>% 
  mutate(link = latex_hyperlink("Link", Certificate, color = "purple"),
         prefix_link = latex_color("--- Certificate: ", color = "gray"),
         full_link = paste0(prefix_link, link)
         ) %>% 
  detailed_entries(
    what = Title,
    with = By,
    where = full_link,
    when = Yr,
    .protect = F
  )
cv$acad[4, ] %>% 
  detailed_entries(
    what = Title,
    with = By,
    when = Yr,
    .protect = T
  )

Other Conferences & Trainings

cv$otherTr %>% 
  mutate(prefix_link = latex_color("--- Certificate: ", color = "gray")) %>% 
  mutate(link = latex_hyperlink("Link", Certificate, color = "purple"),
         full_link = paste0(prefix_link, link)
         ) %>% 
  mutate(
    By = latex_hyperlink(By, By_link, color = "black")
    ) %>% 
  detailed_entries(
    what = Title,
    with = By,
    where = full_link,
    when = Yr,
    .protect = F
    )

Elective Activities

cv$elective %>% 
  detailed_entries(
    what = Title,
    with = Where,
    when = Yr
  )

Research Experience

cv$research %>% 
  detailed_entries(
    what = Title,
    with = glue::glue("With: {With}"),
    when = Status
  )

Projects --- Web applications

\hfill\break

| During my internship at the Physiology Department, I have developed various web applications in order to automate tasks and improve workflows that belong to these categories:

\hfill\break

E-learning systems:

app_latex <- cv$app %>% 
  mutate(text = latex_hyperlink(latex_bold(Name), Link, color = "purple")) %>% 
  dplyr::pull(text)

cv$app

Physiology Educations:

Research:

\hfill\break

Skills

\hfill\break

R-programming for Data Science:

Other Technical Skills:

\vfill

### Create a Footer and Place in \rfoot{}
footer <- paste0(
  latex_color("Source code of this document can be found in ", "gray"),
  latex_hyperlink("Github",
    "https://github.com/Lightbridge-KS/CV",
    color = "purple"
  )
)

footer

\rfoot{r footer}



Lightbridge-KS/CV documentation built on Dec. 17, 2021, 12:05 a.m.