if (FALSE) {
my_document <- write_rmd(
title = "Sample Document", author = "Miguel Alavarez",
output = "html_document",
body = txt_body(
"# Intro",
"",
"This is just an example."))
my_document
}
Run the code above in your browser using DataLab