# \donttest{
yml() %>%
yml_clean(TRUE) %>%
yml_replace(clean = FALSE) %>%
yml_discard("author")
yml() %>%
yml_output(
pdf_document(),
html_document()
)%>%
yml_discard(~ length(.x) > 1)
# }
Run the code above in your browser using DataLab