Nothing
#' Hyndman CV template
#'
#' Produces a CV using the style used in Rob Hyndman's CV:
#' https://robjhyndman.com/hyndsight/cv/
#'
#' @param \dots Arguments passed to \code{\link[vitae]{cv_document}}.
#'
#' @section Preview:
#' `r insert_preview("hyndman")`
#'
#' @return An R Markdown output format object.
#'
#' @author Rob J Hyndman & Mitchell O'Hara-Wild
#'
#' @export
hyndman <- function(...) {
template <- system.file("rmarkdown", "templates", "hyndman",
"resources", "hyndmantemplate.tex",
package = "vitae"
)
set_entry_formats(hyndman_entries)
cv_document(..., template = template)
}
hyndman_entries <- new_entry_formats(
brief = function(what, when, with){
paste(
c(
"\\begin{longtable}{@{\\extracolsep{\\fill}}ll}",
glue_alt(
" <<when>> & \\parbox[t]{0.85\\textwidth}{%
\\textbf{<<what>>}\\\\[-0.1cm]{\\footnotesize <<with>>}}\\\\[0.4cm]"),
"\\end{longtable}"
),
collapse = "\n"
)
},
detailed = function(what, when, with, where, why){
why <- lapply(why, function(x) {
if(length(x) == 0) return("\\empty%")
paste(c(
"\\vspace{0.1cm}\\begin{minipage}{0.7\\textwidth}%",
"\\begin{itemize}%",
paste0("\\item ", x, "%"),
"\\end{itemize}%",
"\\end{minipage}%"
), collapse = "\n")
})
where <- ifelse(where == "", "\\empty%", paste0(where, "\\par%"))
paste(c(
"\\begin{longtable}{@{\\extracolsep{\\fill}}ll}",
glue_alt(
"<<when>> & \\parbox[t]{0.85\\textwidth}{%
\\textbf{<<what>>}\\hfill{\\footnotesize <<with>>}\\newline
<<where>>
<<why>>
\\vspace{\\parsep}}\\\\"),
"\\end{longtable}"
), collapse = "\n")
}
)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.