r - 包含来自外部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")}
```