#' @rdname cv_entries
#' @importFrom rlang enexpr expr_text !!
#' @export
brief_entries <- function(data, what, when, with, .protect = TRUE) {
edu_exprs <- list(
what = enexpr(what) %missing% NA,
when = enexpr(when) %missing% NA,
with = enexpr(with) %missing% NA
)
out <- dplyr::transmute(data, !!!edu_exprs)
structure(out,
preserve = names(edu_exprs),
protect = .protect,
class = c("vitae_brief", "vitae_preserve", class(data))
)
}
#' @importFrom knitr knit_print
#' @export
knit_print.vitae_brief <- function(x, options) {
x[is.na(x)] <- ""
if(!(x%@%"protect")){
protect_tex_input <- identity
}
out <- glue_data(x, "\\briefitem{<<protect_tex_input(what)>>}{<<protect_tex_input(when)>>}{<<protect_tex_input(with)>>}",
.open = "<<", .close = ">>"
)
knitr::asis_output(glue("\\briefsection{<<glue_collapse(out)>>}",
.open = "<<", .close = ">>"
))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.