Предположим, ваш заголовок в header.yaml
. Затем просто прочитайте два файла и запишите их как один:
fulltext <- c(readLines("header.yaml"), readLines("out.Rmd"))
writeLines(fullText, "out2.Rmd")
Конечно, вы также можете поместить заголовок в строковую переменную вместо чтения его из файла, например
header <- '---
title: "Title1"
html_document:
number_sections: yes
self_contained: yes
toc: yes
toc_depth: 3
toc_float: yes
---'
fulltext <- c(header, readLines("out.Rmd"))
writeLines(fullText, "out2.Rmd")