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> 

我设法将 's 打印到 HTML，但结果也直接打印在 HTML 中， 使用以下块：

<!--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

这样的：

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

有帮助吗？

Answer 2

我认为这是一个糟糕的 hack，但你可以这样做：

<!-- begin.rcode setup, include=FALSE
tmpl <- '<!-- begin.rcode tmpl-label-%d,
print(rnorm(5,mean=i))
\nend.rcode-->'
end.rcode-->

<!--begin.rcode echo=FALSE, results='asis'
for (i in 1:2) {
  cat("<h2>", i, "is a great number</h2>")
  cat(knit(text=sprintf(tmpl, i), quiet=TRUE))
}
end.rcode-->

Answer 3

你好 Floo0 另一个使用两个 .Rhtml 文件的解决方案。第一个 mainfile.Rhtml 会根据需要多次调用第二个。在stepfile.Rhtml 中，您可以随意放置块。你只需要编译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