HTML 单行的 R-markdown 块内的代码

Question

我在 for 循环中有一个 R-markdown 文档（测试各种模型），我想用 HTML Headers 来关闭它们，因为它不是很难找到我要找的模型。有 "asis" 选项，但它会关闭整个块的格式，这不是我想要的。我已经尝试了一些我在这里找到的东西，但没有任何效果。这是我的代码：

---
title: "Untitled"
author: "Mike Wise - 25 Jul 2014"
date: "November 2, 2015"
output: html_document
---

Test

```{r, echo=T}
for (i in 1:3){
  print("<h1>Title</h1>")
  #print("##Title")
  m <- data.frame(matrix(runif(25),5,5))
  print(m)
}
```

这是一种没有正确标题格式的尝试：

下面是 results="asis" 选项的样子：

Answer 1

您可以尝试使用 kable 函数：

```{r, echo=T, results="asis"}
library(knitr)
for (i in 1:3){
  print("<h1>Title</h1>")
  #print("##Title")
  m <- data.frame(matrix(runif(25),5,5))
  print(kable(m, format = "html"))
}
```

这给了我：

Answer 2

试试这个。

```{r, echo=F, results="asis"}
for (i in 1:3){
  library(knitr)
  print("<h1>Title</h1>")
  #print("##Title")
  m1 <- knitr::kable(data.frame(matrix(runif(25),5,5)))
  print(m1)
}

```

Answer 3

好吧，一年半过去了，我仍然不时需要这个，但从那以后我学到了足够多的东西，知道如何正确地做它。您需要编写 knitr "output hook"，并修改输出，以便 html 可以 "escape" 通过。

以下实现了这一点：

添加了一个 knitr 输出挂钩。
定义了一种语法来指定所需的标签和内容
- 例如要获得 <h1>some_text</h1> 使用 htmlesc<<(h1,some_text)>>
想出一个正则表达式来提取 h1 和 some_text 并将其重新格式化为正确标记的 html，删除 knitr 插入的 ## 作为嗯
添加了更多测试用例以确保它做了一些额外的事情（例如 h4、p、正确放置图表和表格等）
添加了另一个正则表达式以删除双转义行，该行添加了一些不需要的空白镶板结构。

代码如下：

---
title: "Output Hook for HTML Escape"
author: "Someone"
date: "2017 M04 25"
output: 
  html_document:
    keep_md: true
---

```{r setup, include=T,echo=TRUE}
knitr::opts_chunk$set(echo = TRUE)
hook_output <- knitr::knit_hooks$get("output")


knitr::knit_hooks$set(output=function(x,options){
  xn <- hook_output(x,options)
  # interestingly xn is a big character string. 
  # I had expected a list or vector, but the length of x is 1 and the class is character.

  # The following regexp extracts the parameters from a statement of the form
  # htmlesc<<(pat1,pat2)>> and converts it to <pat1>pat2</pat1>
  xn <- gsub("## htmlesc<<([^,]*),{1}([^>>]*)>>","\n```\n<\1>\2</\1>\n```\n",xn)
  # now remove double escaped lines that occur when we do these right after each other
  gsub(">\n```\n\n\n```\n<",">\n<",xn)
}
)
```

## An analysis loop in a single R chunk with R Markdown

In the following, we do a loop and generate 3 sets of data:

(@) We have some explanitory text
(@) then we do a bar plot with ggplot
(@) then we print out a table
(@) then we do a base plot - just for fun

```{r, echo=T, fig.height=3,fig.width=5}
library(knitr)
library(tidyr)
library(ggplot2)
set.seed(123)

for (i in 1:3){
  mdf <- data.frame(matrix(runif(25),5,5))
  cat(sprintf("htmlesc<<h1,Title %d>>\n",i))
  cat(sprintf("htmlesc<<h4,Smaller Title - also for %d>>\n",i))
  cat(sprintf("htmlesc<<p,and some text talking about this %d example>>\n",i))
  print(sapply(mdf,mean))
  gdf <- gather(mdf,series,val)
  gp <- ggplot(gdf)+geom_bar(aes(series,val,fill=series,color=I("black")),stat="identity")
  print(gp)
  print(mdf)
  plot(mdf)
}
```

这是输出（由于您不需要详细信息而略微缩小）。

顺便说一下，唯一真正的文档是 Yihui 的优秀 knitr 书，搜索很容易找到它。

HTML 单行的 R-markdown 块内的代码

HTML code inside of a R-markdown block for a single line

html

regex

r

knitr

r-markdown