knitr可以根据每个chunk中的R代码结果动态输出叙述文本吗？

Question

我正在考虑开发一个 .rmd 文件，该文件可以根据前面的 R 结果在输出文件（.html、.pdf、...）中动态写入一些叙述块。简单地说，我希望它是这样工作的：

```{r,echo=F,include=FALSE}
x=1;

```
##if x=1 then output text below
text1

##if x=2 then output text below
text2

.....

Answer 1

当knitr 处理一个文档时，该文档被分成两类输入：普通文本和代码块。普通文本保持不变并传递到输出文件。因此，如果应该动态包含纯文本，则它必须在一个块中。

代码块根据它们的options 进行评估。在当前情况下，最重要的选项是：

• eval
• echo
• results
• engine

eval 判断一个块是否被评估； eval = FALSE 跳过该块。 echo 决定是否显示块的源代码。 results 确定如何处理块的输出。默认情况下 (results = "markup) 使用输出挂钩将特定于文档类型的标记应用于输出。 results = "asis" 表示所有输出都“按原样”包含在输出文件中，没有任何修改。

通过这三个选项，可以完成以下工作：

This is some text ...

```{r, echo = FALSE, eval = FALSE, results = "asis"}
cat("... with a secret inside ...")
```

```{r, echo = FALSE, eval = TRUE, results = "asis"}
cat("... that is dynamically generated.")
```

输出：

This is some text ...



... that is dynamically generated.

请注意，第一个块没有被评估，因为eval = FALSE。

但是，cat() 来自 R 块的大量文本很麻烦。 engine 可以用来克服这个问题。除了 R，还有other engines 可用于评估块，其中包括（当前未记录？）引擎asis。这个引擎非常简单。来自knitr NEWS file：

添加了一个名为asis的新引擎，用于写入块内容而不对其进行处理；它还尊重块选项echo 和eval——当其中一个是FALSE 时，块将被隐藏；这使得有条件地编写文本成为可能

将 asis 引擎与以下语法糖 (source) 结合使用

对于语言引擎，R Markdown 代码块头的语法现在可以是```{lang, option=value}`（例如```{python} 和```{Rcpp}），相当于```{r, engine='lang', option=value}

上面的例子变成：

This is some text ...

```{asis, echo = FALSE}
... with a secret inside ...
```

```{asis, echo = TRUE}
... that is dynamically generated.
```

Answer 2

上面的答案都很好，但是很复杂。使用内联代码，如评论中建议的那样。

The mean of x is `r mean(x)` which is very high... 

编辑： 因为这被选为答案。我会详细说明。 您可以使用 if() 或 ifelse() 或 switch()。我最喜欢切换，更快，更干净的代码。但是我不确定如何在 switch 中使用 else 语句。

```{r}
x <- 1
```
x is `r if(x==1){"equal to one"} else {"not equal to one"}` which is great... 

x is `r ifelse(x==1, "equal to one", ifelse(x==2, "equal to two", "not equal to one or two"))` which is great... 

x is `r switch(x, "1" = "equal to one", "2" = "equal to two")` which is great...

Answer 3

以下将打印标题并根据设置条件 (x) 的变量执行该标题之后的代码块。

```{r,}
x<- FALSE
Title <- ifelse(x, "My header","")
```

## `r Title` 
```{r, echo=FALSE}
if(x) {print(1:5)}
```