knitr的purl（）在生成的R脚本中导致较大的垂直空间（空行）

Question

从purl()的以下最小工作示例可以看出，在.R之前的结果str(X)脚本中有很多垂直空间。空块还引入了另一个空行。为什么？如果您有各种并排图（例如，通过嵌套的块），则垂直空间会累加很多（在生成的.R脚本中留出半页空白）。我认为，空行应该是默认的块之间的垂直空间。我玩过tidy和tidy.opts，但无法解决此问题。这是knitr的已知问题，还是我使用错误的方式使用了它？

\documentclass{article}
\begin{document}
<<chunk1>>=
library(mvtnorm)
set.seed(271)
X <- rmvt(1000, df = 3.5)
U <- apply(X, 2, rank) / (nrow(X) + 1)
<<chunk1-fig, eval = FALSE, comment = "">>=
plot(X)
@
<<chunk2-fig, eval = FALSE, comment = "">>=
plot(U)
@
\setkeys{Gin}{width=\textwidth}
\begin{figure}[htbp]
  \centering
<<fig_chunk_1, echo = FALSE, purl = FALSE, fig.width=6, fig.height=6>>=
<<chunk1-fig>>
@
\end{figure}
<<echo = FALSE, purl = FALSE>>=
@
<<chunk2>>=
str(X)
@
\end{document}