class: inverse
library(fontawesome) library(tidyverse) options(htmltools.dir.version = FALSE, width = 120)
.title[vitae] .sticker-float[]
/ˈviːteɪ/
.bottom[
- Mitchell O'Hara-Wild (r fa("twitter", fill="#1da1f2")
@mitchoharawild)
- Rob Hyndman (r fa("twitter", fill="#1da1f2")
@robjhyndman)
23 November 2018 ]
class: inverse, top
.sticker-float[]
.title[Templates]
class: inverse, top
.sticker-float[]
.title[Getting started]
name: Nicholas Tierney position: "Research Fellow" address: "Monash University, Australia" www: njtierney.com profilepic: "njtierney.png" email: "nicholas.tierney@gmail.com" twitter: nj_tierney github: njtierney date: "`r format(Sys.time(), '%B %Y')`" aboutme: "Constantly excited about #rstats" output: vitae::twentyseconds
Content can be added using standard R Markdown functions.
The package also includes two functions for data structured output:
This allows natural integration with other packages.
# Welcome
This is my resume, Id like some jobs please.
# Education '`'{r education} edu <- rorcid::orcid_educations("0000-0003-1460-8722") edu$`0000-0003-1460-8722`$`education-summary` %>% detailed_entries( what = `role-title`, when = glue::glue("{`start-date.year.value`} - {`end-date.year.value`}"), with = organization.name, where = organization.address.city ) '`'
# R Packages '`'{r rpkgs, eval = FALSE} pkgsearch::ps("Tierney",size = 100) %>% filter(maintainer_name == "Nicholas Tierney") %>% brief_entries( what = title, when = lubridate::year(date), with = description ) '`'
# Publications '`'{r publications} scholar::get_publications("o4eVsQEAAAAJ") %>% detailed_entries( what = title, when = year, with = author, where = journal, why = cites ) '`'
# Selected talks '`'{r talks} tibble::tribble( ~name, ~event, ~location, ~year, "Empowering people with community, software, and peer review", "**RUCK: R Users Conference Korea (Invited Keynote speaker)**", "Seoul, Korea", 2018, "Now you see it? Now you don’t? The role of graphics in identifying MCMC convergence (Awarded Runner up Pitman Prize for Young Statistician)", "ISCB-ASC", "Melbourne, Australia", 2018, "Find the best locations for facilities using `maxcovr`", "UseR! 2018", "Brisbane, Australia", 2018 ) %>% detailed_entries( what = name, when = year, with = event, where = location ) '`'
class: inverse, top
.sticker-float[]
.title[Thanks! r fa("comments", fill = "white")
]
.larger[
r fa("github", fill = "white")
Learn more on GitHub: ropenscilabs/vitae
r fa("desktop", fill = "white")
Review slides: mitchelloharawild.com/vitae
.footnote[This work is licensed as r fa("creative-commons", fill="white")
BY-NC 4.0.]
]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.