ymlthis包

#remotes::install_github("rstudio-education/ymlthis")
library(ymlthis)
yml() %>%
  yml_author(c("Yihui Xie", "Hadley Wickham"), affiliation = "RStudio") %>%
  yml_date(lubridate::today()) %>%
  yml_title("Reproducible Research in R") %>%
  yml_category(c("r", "reprodicibility")) %>%
  yml_output(
    pdf_document(keep_tex = TRUE,toc = TRUE, includes = includes2(after_body = "footer.tex")),
    bookdown::html_document2()
  ) %>%
  yml_latex_opts(biblio_style = "apa-like")

yml(author = FALSE, date = FALSE) %>%
  yml_author("Yihui Xie") %>%
  yml_date("02-02-2002") %>%
  yml_title("R Markdown: An Introduction") %>%
  yml_subtitle("Introducing ymlthis") %>%
  yml_abstract("This paper will discuss a very important topic") %>%
  yml_keywords(c("r", "reproducible research")) %>%
  yml_subject("R Markdown") %>%
  yml_description("An R Markdown reader") %>%
  yml_category("r") %>%
  yml_lang("en-US")