wrap a yaml
string to the markdown
header.
Examples
yaml <- list(
author = teal.reporter:::yaml_quoted("NEST"),
title = teal.reporter:::yaml_quoted("Report"),
date = teal.reporter:::yaml_quoted("07/04/2019"),
output = list(pdf_document = list(keep_tex = TRUE))
)
teal.reporter:::md_header(yaml::as.yaml(yaml))
#> [1] "---\nauthor: \"NEST\"\ntitle: \"Report\"\ndate: \"07/04/2019\"\noutput:\n pdf_document:\n keep_tex: yes\n---\n"