knitr中的代码外部化问题

Question

我在r脚本“code.R”中编写了以下代码：

## @knitr Q1

x <- 1:10
x

## @knitr Q2
mean(x)

在r studio 0.98.1028中，在Rmd文件“bhi.rmd”中，我使用了以下代码：

---
output:
  html_document:
    toc: yes
---

```{r}
library(knitr)
read_chunk("code.R")
```


```{r Q1}
```

```{r Q2}
```

在knit HTML之后，输出是（正如预期的那样）：

x <- 1:10
x
##  [1]  1  2  3  4  5  6  7  8  9 10
mean(x)
## [1] 5.5

但是如果我删除了块Q1，我会得到错误的块Q2输出：

mean(x)
## [1] 8.667

这里有什么问题？