r - Knitr スピン スクリプトのループ/関数内にタイトルを追加する

Question

Knitr Spin を使用して HTML レポートを生成するために使用したい r スクリプトがあります。

実行されるコードの多くは、ループ/関数内にあります。これらの関数/ループ内で作成されたコンテンツのドキュメント内でタイトルを生成するにはどうすればよいですか?

私はいくつかの異なる方法を試しましたが、これまでのところ何も機能していません。スピンされたときにタイトルを持たないものの再現可能な例を以下に示します。

#' ---
#' title: "My Doc"
#' author: "ME"
#' date: "January 28, 2017"
#' ---
library(ggplot2)
myFun = function(){
  for(i in seq(from=1,to=3, by=1)){
    #' ## This title won't show up
    cat("\n## Nor will this one\n")
    plot = ggplot(aes(x=mpg,y=cyl),data=mtcars) + geom_point()
    print(plot)
  }
}