当将 knitr 与诸如apa6e代码块之类的类一起使用时，默认为与文档的其余部分一样的两倍空间。这是不可取的。
这可以通过包装来改变：
\begin{singlespace}
<<*>>=
CODE
@
\end{singlespace}
这如何在全局范围内完成，而不是用 tex 单个空格标签包装？
MWE .Rnw 文件
\documentclass[leavefloats]{apa6e}
\usepackage[american]{babel}
\usepackage{csquotes}
\usepackage[style=apa,backend=biber,bibencoding=latin1]{biblatex}
\DeclareLanguageMapping{american}{american-apa}
\begin{document}
<<setup, include=FALSE, cache=FALSE>>=
# set global chunk options
opts_chunk$set(fig.path='figure/minimal-', fig.align='center', fig.show='hold')
options(replace.assign=TRUE,width=90)
library(ggplot2); library(xtable)
@
\title{MWE}
\shorttitle{MWE}
\author{Tyler Rinker}
\date{\today}
\authornote{\dots}
\abstract{This is an example of an abstract in APA.}
\maketitle
<<foo>>=
x <- "Got me some code"
y <- "look another line"
paste(x, y)
@
\begin{singlespace}
<<bar>>=
x <- "Got me some code"
y <- "look another line"
paste(x, y)
@
\end{singlespace}
\end{document}