从R中的提示包输出提示函数

以下代码取自提示包的文档。这段代码的最后一行是抛出错误

library(hints)
m <- lm(BOD)
hints(m)
library(xtable)
xtable(hints(m))

---

我想知道如何获得

提示

函数输出，以便在

knitr

或

swave

文档中使用

xtable

函数。

它看起来像xtable.hints是由包提供的，但没有正确导出，因此您无法实际使用它。虽然这是一个相当简单的函数，但最简单的解决方案可能是复制源代码并创建自己的函数来完成完全相同的任务

xtable.hints <- function(x, align = "llll", ...){
    x <- as.data.frame(x$results[, c(2, 1, 3)])
    colnames(x) <- c("Package", "Function", "Task")
    xtable(x, align = align, ...)
}

x <- 1:10
y <- rnorm(10)
o <- lm(y~x)
xtable(hints(o)) # now it works

---

xtable.hints感谢@Dason的评论。您能告诉我在knitr中显示提示输出的其他方法是什么吗？记住，提示输出没有显示在R控制台中。从
提示
函数文档中：该对象与xtable包兼容，以获得LaTeX输出，xtable的所有参数都可以使用。我不确定这里的sweave或knitr标记是否合适，因为这个问题与它们没有任何关系。顺便说一下，我通过查看
库（help=hints）
发现xtable.hints是包的一部分，但后来发现它没有导出。您仍然可以使用
getAnywhere（xtable.hints）
查看函数，不过这就是我获取该函数源代码的方式。我在页面上提交了一个关于提示包的问题。我们看看哈德利能不能把它修好。这是一个非常简单的解决方案，但我怀疑这个方案是否是他目前的首要任务。
xtable.hints <- function(x, align = "llll", ...){
    x <- as.data.frame(x$results[, c(2, 1, 3)])
    colnames(x) <- c("Package", "Function", "Task")
    xtable(x, align = align, ...)
}

x <- 1:10
y <- rnorm(10)
o <- lm(y~x)
xtable(hints(o)) # now it works