r - 如何在 R knitr 中包装一个非常长的段落 R 输出

Question

我正在尝试使用 R Sweave/Knitr 将长段落放入 pdf 文件中。这段很长的段落是从其中一个 excel 列中提取并粘贴在一起的。您可以将段落视为 1 x 1 对象:

cat("loooooooooooooooooooooooooooooooooooooooooooooooooooooooooooong")

目前，如果我将这一长段汇编成 pdf:

 \documentclass{article}
 \begin{document}

 <<warning=FALSE, comment=NA, message=FALSE, echo=FALSE, tidy=TRUE,background="white">>=

 cat("looonno, oooooooooooooooooooooo, ooooooooooooooooooooooo, ooooooooooooooooooo, ooooonnnnnnnnnnnnnnnnnng")

 @

 \end{document}

输出不能包装文本本身，结果将始终是这样的:


输出在页面边缘之外。

我试过使用 option(width=60) ，但在这种情况下它没有帮助，除非一个对象中有多个项目。

希望有人能想出一个想法，让文本在边距内换行。

Answer 1

与strwrap的组合, writeLines和适当的 width你可以做的参数:

输出:

\documentclass{article}
\begin{document}

<<warning=FALSE, comment=NA, message=FALSE, echo=FALSE, tidy=TRUE,background="white">>=



x=paste0("looonno, oooooooooooooooooooooo, ooooooooooooooooooooooo, ooooooooooooooooooo, ooooonnnnnnnnnnnnnnnnnng, texttttttttttttttttttttttttt,
        goessssssssssssssss,onnnnnnnnnnn, foreverrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrrr, annnnnnnnnnnnnnnnnnnnnnnnnnd, everrrrrrrr")

cat("Before:","\n")

cat(x,"\n")

cat("After:","\n")

cat(writeLines(strwrap(x, width = 100)))


@

\end{document}