一种在knitr中复制块的方法？

Question

针织专家，

背景：使用 knitr 报告带有许多嵌入式图表的报告。在报告的正文中，合适的只是图表，而不是代码。

例如：

```{r graph_XYZ_subset, echo = FALSE, message = TRUE, 
                        fig.cap = "Text that explains the graph"}

graph.subset <- ggplot() + ...

```

这部分工作得很好。

但是，需要显示代码的关键部分（例如关键统计分析和关键图表生成）...但在附录中。

这导致了这个问题：有没有办法将 knitr 块从脚本的早期部分复制到后面的部分？

为确保准确性，附录中的代码最好列出（显示）报告中实际执行的所有代码。

例如：

# ADDENDUM - Code Snippets

### Code to Generate Subset Graph

\\SOMEHOW COPY the code from graph_XYZ_subset to here without executing it.

### Code to Compute the Mean of Means of the NN Factors

\\Copy another knitr chunk which computes the mean of means, etc.

### And So On...

\\Copy chunks till done

* * * * * * * * 

有什么想法吗？ knitr 中有没有办法执行这些类型的块副本？

Answer 1

有几个选项，其中有四个 listet 并在下面简要说明。易慧在How to reuse chunks的解释也可能有帮助。

\documentclass{article}
\begin{document}

\section{Output}
<<mychunk, echo = FALSE>>=
  print("Hello World!")
@

\section{Source code}
Option 1: Use an empty chunk with the same label.
<<mychunk, eval = FALSE>>=
@

Option 2: Embed in other chunk (no advantage in this case). Note that there is no equality sign and no at for the inner chunk.
<<myOtherChunk, eval = FALSE>>=
<<mychunk>>
@

Option 3: Use \texttt{ref.label}.
<<ref.label = "mychunk", eval = FALSE>>=
@

Option 4: Define the chunk in an external file you read in using \texttt{read\_chunk}. Then use Option 1--3 to execute the chunk (with \texttt{eval = TRUE}; default) or show it's code (with \texttt{eval = FALSE}).
\end{document}

我通常更喜欢选项 4。这允许您将编程逻辑与编写文档分开。

在执行mychunk 并且图形将出现在PDF 中的地方，您的Rnw 文件中只有<<mychunk>>=，并且不必费心处理生成图形的所有代码。开发代码也更容易，因为在交互式会话中，您可以将所有代码放在一个位置，并且在从一个块转到下一个块时不必滚动浏览报告的所有文本。

编辑： 上述选项的共同点是您需要手动维护要在附录中显示的块列表。这里有两个选项可以避免这种情况；不幸的是，两者都有一些缺点：

选项 1：自动创建所有已执行块的列表并显示其代码。

这可以使用注册所有块名称的chunk hook 来实现。在文档中的所有其他块之前包含以下块：

<<echo = FALSE>>=
library(knitr)
myChunkList <- c()

listChunks <- function(before, options, envir) {
  if (before) {
    myChunkList <<- c(myChunkList, options$label)
  }
  return(NULL)
}

knit_hooks$set(recordLabel = listChunks) # register the new hook
opts_chunk$set(recordLabel = TRUE) # enable the new hook by default
@

在您想要显示代码的地方（例如在附录中），插入以下代码块：

<<showCode, ref.label = unique(myChunkList), eval = FALSE>>=
@

不幸的是，块之间没有边距或任何其他视觉分隔。

选项 2：并不总是需要使用块挂钩，因为有函数 all_labels() 返回所有块标签的列表。但是，您的文件中可能有未执行的块，您可能不想看到它们的代码。此外，选项 1 允许通过在其块选项中设置 recordLabel = FALSE 来跳过某些块。