包含来自外部 R 脚本的代码，运行，显示代码和输出

Question

是否可以在 .Rmd 中包含来自外部 R 脚本的代码，同时运行代码、显示代码并在输出 .HTML 文件中显示其结果？例如，如果我有

x <- 1
y <- 3
z <- x + y
z

在external.R。在输出文档中，我希望看到上面的代码以及z 的结果，即 4。本质上，我希望与将上面的内容复制/粘贴到 R 块中的结果相同。所以我想要

```{r}
some.library::some.function("external.R")
```

相当于

```{r}
x <- 1
y <- 3
z <- x + y
z
```

在输出 HTML 文件中。 我已经尝试过knitr::read_chunk('external.R) 和source('external.R) 之类的东西，但是这些都不显示代码。我错过了一些简单的东西吗？

---

编辑

我发现source('external.R', echo = TRUE) 会产生我所要求的内容，但输出显示的代码/结果的每一行都以## 开头。如果代码只是简单地复制/粘贴到 .Rmd 中的一个块中，有什么方法可以让它看起来像这样？

Answer 1

虽然accepted answer 提供了一个简单且有效的解决方案，但我认为最惯用的方法（根本不必修改外部脚本）是使用chunk option code 来设置external.R 的内容作为块代码：

```{r, code = readLines("external.R")}
```

Answer 2

还有另一种方法，它看起来完全就像在降价文件中包含代码。

您的external.R 文件：

## @knitr answer
x <- 1
y <- 3
z <- x + y
z

您的 Rmarkdown 文件：

---
title: "Untitled"
output: html_document
---

```{r echo=FALSE}
knitr::read_chunk('external.R')
```

```{r}
<<answer>>
```

这会产生：

Answer 3

您可以在代码块选项中设置comment = NA。

例子：

---
title: "Untitled"
output: html_document
---

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

## Example

```{r}
source("example.R", echo = T, prompt.echo = "", spaced = F)
```

这会产生