r - Knitr HTML Loop - 一些 HTML 输出，一些 R 输出

Question

我想循环遍历一个列表，并以 HTML 格式打印其中的一部分，以代码格式打印其中的一部分。所以更准确地说:我想产生与这相同的输出

<h2> 1 is a great number </h2> 
<!--begin.rcode echo=FALSE print(rnorm(5,mean=1)) end.rcode--> 
<h2> 2 is a great number </h2> 
<!--begin.rcode echo=FALSE print(rnorm(5,mean=2)) end.rcode-->
...
<h2> x is a great number </h2> 

我设法将 打印到 HTML，但结果也直接以 HTML 打印，具有以下 block :

<!--begin.rcode, echo=FALSE, results = 'asis'
for (i in list(1,2)){
   cat("<h2>", i, "is a great number</h2>")
   print(rnorm(5,mean=i))
}
end.rcode-->

很乐意接受所有建议。

P.S.:我想要格式化的原因是 knirtBootstrap ，然后产生一个非常好的输出。

Answer 1

再次问好 Floo0 另一个使用两个 .Rhtml 文件的解决方案。第一个，mainfile.Rhtml，可以根据需要多次调用第二个。在 stepfile.Rhtml 中，您可以根据需要放置 block 。您只需编译 mainfile.Rhtml。

## mainfile.Rhtml

<!--begin.rcode echo=FALSE
J <- 10
end.rcode-->


<!--begin.rcode include=FALSE
out <- NULL
for (i in 1:J) {
  out <- c(out, knit_child('stepfile.Rhtml'))
}
end.rcode-->


<!--rinline paste(out, collapse = '\n') -->


## stepfile.Rhtml

<!--begin.rcode echo=FALSE, results='asis'
cat("<h2>", i, "is a great number</h2>")
end.rcode-->

<!--begin.rcode echo=FALSE
print(rnorm(5,mean=i))
end.rcode-->

我的想法来自 Dynamic number of calls to a chunk with knitr