Merge pull request #93 from jennybc/forward-compat-glue-collapse

If no yaml, avoid prepending with gratuitous `\n`
ropensci · Mar 17, 2023 · c50a2f0 · c50a2f0
2 parents b2e0459 + 0601f19
commit c50a2f0
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/to_md.R b/R/to_md.R
@@ -61,7 +61,9 @@ to_md <- function(yaml_xml_list, path = NULL, stylesheet_path = stylesheet()){
 transform_to_md <- function(body, yaml, stylesheet) {
   body <- xslt::xml_xslt(body, stylesheet = stylesheet)
 
-  yaml <- glue::glue_collapse(yaml, sep = "\n")
+  if (length(yaml) > 0) {
+    yaml <- glue::glue_collapse(yaml, sep = "\n")
+  }
 
   c(yaml, body)
 }