helpExtract函数在R 3.1.1和knitr 1.6.10中不起作用

Question

我从@AnandaMahto编写的here中获取了以下代码。此功能以前工作正常，但停止使用R 3.1.1和knitr 1.6.10。任何帮助将不胜感激。感谢

\documentclass{article}

\begin{document}

<<echo=FALSE>>=
library(devtools)
source_gist("https://gist.github.com/mrdwab/7586769")
@

\Sexpr{knit_child(textConnection(helpExtract(cor, section="Arg", type = "s_text")),
options = list(tidy = FALSE, eval = FALSE))}

\Sexpr{knit_child(textConnection(helpExtract(cor, type = "s_code")), 
options = list(tidy = FALSE, eval = FALSE))}

<<tidy=TRUE>>=
## normal R code
args(lm)
@

\end{document}

Answer 1

作为临时解决方案，您可以通过避免library(devtools)

来实现

<<echo=FALSE>>=
devtools::source_gist("https://gist.github.com/mrdwab/7586769")
@

但必要的解决方案是修改helpExtract功能。 在第3行，utils:::.getHelpFile(help(A))应为utils:::.getHelpFile(utils::help(A))

这是由一些deparse和substitute链引起的。 我不确定这是否是devtools的错误，但至少我认为这是devtools包的不良行为，所以我会让@hadley知道这种行为。