用于宽度受控的knitr中的R函数提取代码

Question

我们可以使用formatR::usage(lm)获取lm函数的参数，并可以使用以下命令将输出重定向到knitr：

<<test, code=formatR::usage(lm), eval=FALSE>>=
@

不知道有没有这样的功能可以让lm功能码重定向到knitr。

已编辑

使用以下代码（如@JoshO'Brien 所建议）获得了lm 函数的代码，以在knitr 中使用：

<<test, code=lm, eval=FALSE>>=
@

但是不知道如何控制width 的knitr 输出。

Answer 1

要嵌入一些函数的“整洁”定义，请参阅Yihui's self-explanatory existing code，

<<insert-fun, echo=FALSE>>=
insert_fun = function(name) {
  read_chunk(lines = capture.output(dump(name, '')), labels = paste(name, 'source', sep = '-'))
}
@

<<insert-lm, echo=FALSE>>=
insert_fun('lm')
@

<<lm-source, eval=FALSE, tidy=TRUE, tidy.opts=list(width.cutoff=30)>>=
@

Example Rnw and Rmd Gist

---

当输出到 Latex 时，有时会出现让换行符保持在页边距内的问题。它是一个已知问题，具有多个具有各种缺点的修复程序。就像这个你在边缘内获得全部功能但没有漂亮色彩的地方......这完全是你在解决方案中付出的权衡和/或努力的问题。 :)

\documentclass{article}

\usepackage{listings}
\usepackage{inconsolata}

<<echo=FALSE>>=
options(width=60)

listing <- function(x, options) {
  paste("\\begin{lstlisting}[language=R,basicstyle=\\ttfamily,breaklines=true]\n",
    x, "\\end{lstlisting}\n", sep = "")
}
knit_hooks$set(source=listing, output=listing)

insert_fun = function(name) {
  read_chunk(lines = capture.output(dump(name, '')), labels = paste(name, 'source', sep = '-'))
}

@

<<insert-lm, echo=FALSE>>=
insert_fun('lm')
@

\begin{document}

<<lm-source, eval=FALSE, tidy=TRUE, tidy.opts=list(width.cutoff=50)>>=
@

\end{document}