knitr：在一个列表中纠缠源和输出

Question

我目前正在尝试使用knitr创建一个演示文稿，其中我想要包含一些R代码块和相应的输出。

将Rnw编织成pdf文档时，是否可以选择将R输出放在与代码相同的块/列表中？

我使用knitr钩子将源和输出放入列表

knit_hooks$set(source = function(x, options) {
  paste("\\begin{lstlisting}",
        paste(x, collapse = "\n"),
        "\\end{lstlisting}",
        sep = "\n"
  )
}, output = function(x, options) {
    paste("\\begin{lstlisting}",
        paste(x, collapse = "\n"),
        "\\end{lstlisting}",
        sep = "\n"
  )
})

这导致：

我想要的是：

有没有办法将源和输出放入同一块？