当类默认为双空格(Rnw)时，r-knitr单空格代码

Question

当将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}

Answer 1

您可以重新定义knitrout（默认为空）以将编织器输出放置在singlespace环境中：

renewenvironment{knitrout}{begin{singlespace}}{end{singlespace}}