r - R ターミナルでコードをカット アンド ペーストすると、knitr が期待どおりの結果を生成しない

Question

knit次のコードの場合：

```{r, eval=TRUE}
times <- function(total = 3, name="a") {
    ctr <- 1
    function(expr, val, ok, visible) {
        cat("[Task ", name, "] ", ctr,"\n", sep="")
        ctr <<- ctr + 1
        return(ctr <= total)
    }
}

h <- taskCallbackManager()
h$suspend()
h$add(times())
h$add(times(4,"b"))
h$add(times(5,"c"))
h$add(times(6,"d"))
h$suspend(FALSE)
```

最後のコマンドの後に何も出力しません(h$suspend(FALSE))。ただし、コードを切り取って R に貼り付けると、次の出力が得られます。

[Task a] 1
[Task b] 1
[Task c] 1
[Task d] 1

これが当てはまる理由は何ですか？