att_from_rmd: read yaml patch

ThinkR-open · Apr 8, 2019 · e8a8f6a · e8a8f6a
1 parent 8f0f9cd
commit e8a8f6a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/att_from_rmds.R b/R/att_from_rmds.R
@@ -23,7 +23,7 @@ att_from_rmd <- function(path, temp_dir = tempdir()) {
   )
 
   # Add yaml to the file
-  yaml <- c("\n# yaml to parse \n", rmarkdown::yaml_front_matter(path)$output)
+  yaml <- c("\n# yaml to parse \n", paste(unlist(rmarkdown::yaml_front_matter(path)$output), collapse = "\n"))
   cat(yaml, file = r_file, append = TRUE)
   att_from_rscript(r_file)
 }