r - 在 flexdashboard 中显示代码

Question

我正在尝试使用 R 制作一个 flexdashboard，并希望在我的演示文稿中显示代码，但这似乎不起作用。这里有一个小例子：

---
title: "Test"
output: 
  flexdashboard::flex_dashboard
---

```{r setup, include=FALSE}
library(flexdashboard)
```

### Code

```{r, eval=FALSE, include=TRUE}
plot(iris$Sepal.Length, iris$Sepal.Width)
```   

### Output

```{r, fig.align='center', echo = FALSE}
plot(iris$Sepal.Length, iris$Sepal.Width)
```

即使是其他夹头选项fig.show = 'hide'也不起作用。是否可以在 flexdashboard 的 R-chuck 中显示代码？代码突出显示将是一个好处，而不是纯文本。

Answer 1

如果您希望代码和绘图都显示，请将块选项设置为：echo = true

如果您只想将代码设置为：echo=TRUE, eval=FALSE

---
title: "Test"
output: 
  flexdashboard::flex_dashboard
---

```{r setup, include=FALSE}
library(flexdashboard)
```

### Code

```{r, echo=TRUE, eval=FALSE}
plot(iris$Sepal.Length, iris$Sepal.Width)
```   

### Code and Plot

```{r, echo=TRUE}
plot(iris$Sepal.Length, iris$Sepal.Width)
``` 

### Plot

```{r, fig.align='center', echo = FALSE}
plot(iris$Sepal.Length, iris$Sepal.Width)
```

Answer 2

它不会在您的演示文稿中显示为面板，但要向</> Source Code仪表板添加一个按钮，请包含source_code: embed在您的 YAML 中。

--- title: "Example" output: flexdashboard::flex_dashboard: source_code: embed ---