使用 Knitr 和 LaTex 编写报告时加载 R 包

Question

我有以下组合系统，用于使用 Knitr 和 LaTeX 编写报告，

1. Rstudio 版本 0.99.473 和 R 版本 3.2.2
2. Knitr_1.11
3. MiKTeX 2.9
4. Windows 7

一个示例 .Rnw 代码如下所示，我的问题是在“图 1：测试”下方创建了一个文本字符串“latticeknitrstatsgraphicsgrDevicesutilsdatasetsmethodsbase”。我想知道如何摆脱它。

\documentclass[letterpaper]{article}
\title{An example}
\author{Me}
\date{\today{}}

<<setup, include=FALSE, cache=FALSE>>=
knit_hooks$set(myPackage = function(before, options, envir){
  if(before)
    library(lattice)  else NULL
})
@

\begin{document}
\maketitle
\newpage
\section{My section 1}
\begin{figure}
\caption{Test}\label{fig:GofBase}
<<myPackage=TRUE, echo=FALSE, results='asis', cache=TRUE, fig.show='hold', fig.align='center', warning=FALSE>>=
xyplot(rnorm(100)~rnorm(100))
@
\end{figure}

\end{document}

Answer 1

由于问题表述的不是很清楚，最小的例子也不是绝对的“最小”，这里有一个改进的版本：

问题

为什么下面的最小示例会在输出中添加类似latticeknitrstatsgraphicsgrDevicesutilsdatasetsmethodsbase 的字符串？

\documentclass{article}

<<setup>>=
knit_hooks$set(myPackage = function(before, options, envir){

    if(before) library(lattice)
})
@

\begin{document}
<<myPackage=TRUE>>=
xyplot(rnorm(100)~rnorm(100))
@
\end{document}

回答

这与lattice 无关，也不是knitr 块挂钩的特殊功能。

会发生什么？

当一个块挂钩返回一个字符值时，这个值包含在输出中：

在 knitr 中，也可以使用钩子将文本插入到输出中。为此，钩子函数必须返回一个字符结果。 [knitr: hooks]

在这种情况下，钩子没有明确的返回值。因此返回if()的返回值。 if() 依次返回 library 返回的值：

if 返回评估的表达式的值，或者 NULL 如果没有则不可见（如果没有 else 则可能发生）。 [见?"if"]

最后：

library（不可见地）返回附加包列表[见?libray]

如何避免？

首先，这个例子不是很好。没有理由使用块挂钩加载包。如果需要lattice，则应将其加载到setup 块中。

但在某些情况下，类似的块挂钩很有用。那么，解决办法就是显式返回NULL：

knit_hooks$set(myPackage = function(before, options, envir){

    if(before) library(lattice)
    return(NULL)
  })

Answer 2

这是一个“为我工作”的最小改动版本（也来自 RStudio）

\documentclass[letterpaper]{article}
\title{An example}
\author{Me}
\date{\today{}}

<<setup, include=FALSE, cache=FALSE, echo=FALSE>>=
knit_hooks$set(myPackage = function(before, options, envir){
  if(before)
    library(lattice)  else NULL
})
@

\begin{document}
%\SweaveOpts{concordance=TRUE}
\maketitle
\newpage
\section{My section 1}
\begin{figure}
\caption{Test}\label{fig:GofBase}
<<myPackage=TRUE, echo=FALSE, cache=FALSE, fig.show='hold', fig.align='center', warning=FALSE>>=
print(xyplot(rnorm(100)~rnorm(100)))
@
\end{figure}

\end{document}

我在第一个块中添加了echo=FALSE，并从第二个块中删除了results='asis'。