Rmarkdown不呈现原始HTML

将Rstudio升级到1.4版本后，当我呈现此rmarkdown文档时

---
title: "Raw HTML"
output: html_document
---

```{r setup, include=FALSE}
library(knitr)
library(htmltools)
knitr::opts_chunk$set(echo = F)
```

```{r}
f <- function(text){
   cat(asis_output(htmltools::htmlPreserve(paste("<span style=\"color:green\">", text, "</span>"))))
   return(0)
}
```

```{r}
x <- f('Hello!')
```

---
标题：“原始HTML”
输出：html\u文档
---
```{r设置，include=FALSE}
图书馆（knitr）
图书馆（htmltools）
knitr:：opts_chunk$set（echo=F）
```
```{r}
f
cat
删除
knit\u asis
类。

您可以避免使用
cat
或使用
results='asis'
chunck选项：

---
title: "Raw HTML"
output: html_document
---

```{r setup, include=FALSE}
library(knitr)
library(htmltools)
knitr::opts_chunk$set(echo = F)
```

```{r}
side.effect <- function(text){
   cat(asis_output(htmltools::htmlPreserve(paste("<span style=\"color:green\">", text, "</span>"))))
  return(0)
}

direct <- function(text){
   asis_output(htmltools::htmlPreserve(paste("<span style=\"color:green\">", text, "</span>")))
}
```


```{r}
direct('direct Hello!')
```

```{r,results ='asis'}
x <- side.effect('side effect Hello!')
```

---
标题：“原始HTML”
输出：html\u文档
---
```{r设置，include=FALSE}
图书馆（knitr）
图书馆（htmltools）
knitr:：opts_chunk$set（echo=F）
```
```{r}
副作用
cat
移除
knit_asis
类。

您可以避免使用
cat
或使用
results='asis'
chunck选项：

---
title: "Raw HTML"
output: html_document
---

```{r setup, include=FALSE}
library(knitr)
library(htmltools)
knitr::opts_chunk$set(echo = F)
```

```{r}
side.effect <- function(text){
   cat(asis_output(htmltools::htmlPreserve(paste("<span style=\"color:green\">", text, "</span>"))))
  return(0)
}

direct <- function(text){
   asis_output(htmltools::htmlPreserve(paste("<span style=\"color:green\">", text, "</span>")))
}
```


```{r}
direct('direct Hello!')
```

```{r,results ='asis'}
x <- side.effect('side effect Hello!')
```

---
标题：“原始HTML”
输出：html\u文档
---
```{r设置，include=FALSE}
图书馆（knitr）
图书馆（htmltools）
knitr:：opts_chunk$set（echo=F）
```
```{r}
但是，函数
asis\u output
应该具有与
results='asis'
相同的效果，不是吗？没错，请参见我的编辑谢谢，但是函数f必须返回一个值，我将其用于另一次计算，并且，作为一个副作用，打印文档中的原始HTML代码。请使用两个可用选项查看我的编辑再次感谢！我不明白的是，为什么我以前可以直接使用
cat
或
writeLines
来实现这一点，而不用在chunck中使用
results='asis'
。在某一点上，
cat
和
writeLines
必须已更新以删除
knit_asis
。但是，函数
asis_输出
应该具有与
results='asis'
相同的效果，不是吗？您是对的，请参阅我的编辑谢谢，但函数f必须返回一个值，我用于另一次计算，并且，作为一个副作用，在文档中打印原始HTML代码。请使用两个可用选项查看我的编辑再次感谢！我不明白的是，为什么我以前可以直接使用
cat
或
writeLines
来实现这一点，而不用在chunck中使用
results='asis'
。在某些情况下，必须更新猫和写线，才能删除编织线。