$to_yaml() drops line breaks preceding leading/isolated ---

[arnaudgallou]

tmp <- withr::local_tempfile(
  lines = "---\n---\nLorem ipsum\n---",
  fileext = ".qmd"
)

cat(readr::read_file(tmp))
#> ---
#> ---
#> Lorem ipsum
#> ---

aut <- PlumeQuarto$new(
  tibble::tibble(given_name = "Zip", family_name = "Zap"),
  tmp
)
aut$to_yaml()

cat(readr::read_file(tmp))
#> ---
#> author:
#>   - id: aut1
#>     name:
#>       given: Zip
#>       family: Zap
#> affiliations: {}
#> ---
#> Lorem ipsum---