如何在R swave to pdf中包装用户定义函数的文本输出

当通过Swave编译为pdf时，我们无法让用户定义函数的输出包装文本，相反，它们会从页面上消失，不可读。下面给出了与一个用户定义函数类似的输出代码示例

我们正在Swave中寻找一个解决方案，在那里我们可以调用函数，并将输出包装在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}

\documentclass{article}
\开始{document}
\SweaveOpts{concordance=TRUE}
=
长输出