r - 如何将R Sweave中用户定义函数的文本输出包装为pdf

Question

当通过 Sweave 编译为 pdf 时，我们无法让用户定义函数的输出包装文本，而是它们跑出页面并且不可读。下面给出了类似于用户定义函数之一的输出示例代码。

我们正在 Sweave 中寻找一个解决方案，我们可以在其中调用该函数并将输出包装在 pdf 的边距内。如果可能，我们希望避免编辑函数本身。

\documentclass{article}

\begin{document}
\SweaveOpts{concordance=TRUE}

<<>>=
long_output <- function(x,group){
  var1 <- paste0(group, "_", x, ".devcmn")
  var2 <- paste0(group, "_", x, ".cmn")
  resNames <- c(var1,var2)
  class(resNames) <- "long_output"
  return(resNames)
}

print.long_output <- function(x){
  cat("The following variables (group summary, deviation) were added to the dataset:", x[1], x[2], '\n')
  cat("See package documentation for detailed description of variables added.")
}

long_output("Variable","Grouping")
@

\end{document}

我们尝试了以下页面上的解决方案，但均未成功：

• 让 Sweave 代码块保持在页边距内？
• 编织到PDF时如何将代码块保持在Rmd的边距内
• 在 RStudio 的 R markdown 中，如何防止源代码从 pdf 页面运行？
• https://tex.stackexchange.com/questions/41471/getting-sweave-code-chunks-to-stay-inside-page-margins
• https://github.com/yihui/knitr-examples/blob/master/077-wrap-output.Rmd
• https://github.com/rstudio/rmarkdown/issues/646

标签： rlatextexsweave