r代码块中的输出降价

Question

我有一个R markdown文件,我想从脚本本身输出rmarkdown.例如,我在Rmd文件中有以下简单代码.

---
title: "test"
author: "johndoe"
date: "September 5, 2015"
output: html_document
---

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

```{r cars}
paste("## This is a Heading in Code")
summary(cars)
```

我希望"这是代码中的标题"在rmarkdown中呈现.根据http://rmarkdown.rstudio.com/r_notebook_format.html,R脚本中有一个解决方案可以生成markdown .但我试图找出如何在Rmarkdown文件中执行此操作.任何帮助赞赏.谢谢.

Answer 1

为什么要手动构建标题标记(标记为HTML或HTML)？尝试使用内联R表达式或一些辅助函数pander(以编程方式生成markdown):

---
title: "test"
author: "johndoe"
date: "September 5, 2015"
output: html_document
---

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

## `r 'This is a Heading in Code'`

```{r title, results='asis'}
library(pander)
pandoc.header("This is a Heading in Code", level = 2)
```

```{r cars, results='asis'}
summary(cars)
```

Answer 2

cat("## Heading")在使用内部代码卡盘后，我为此寻找了一个很好的答案一段时间results='asis'。我看到很多人对results='asis'代码块中的设置不满意，因为它将代码块的所有结果设置为不包装在代码标记块中。在很多情况下，我们想要输出标题以及应该包装在标记中的结果（例如呈现为 html 表的 kable 表）。

这是我通过简单地为文本对象指定“asis”属性并将knitr::asis_output代码块保留在默认'markup'设置中找到的解决方案。

---
title: "test"
author: "johndoe"
date: "September 5, 2015"
output: html_document
---

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

```{r cars}
knitr::asis_output("## This is a Heading in Code")
summary(cars)
knitr::kable(summary(cars))
``` 

不幸的是，目前knitr::asis_output仅适用于顶级 R 表达式，并且在另一个表达式（例如 for 循环）中调用它时将不起作用。