r - 添加原生 knitr 打印方法

Question

我正在寻找一种方法来调整通常在查看器或浏览器中显示 html 表格的函数，以便在调用时自动将 html 插入 rnotebooks 等 knitr 文档中。

具体来说，我想改变包sjPlot中函数的行为方式。目前他们返回一个$knitr具有必须手动插入的属性的对象，然后在查看器中生成一个 html 表：

`r sjt.frq(efc$e42dep, no.output=TRUE)$knitr`

这些功能之一是sjt.frq。有没有办法做到这一点？

score 3 · Accepted Answer

library(knitr)
a = 42
class(a) = "my_class"
knit_print.my_class = function(x,...){
    res = paste("{{", x,"}}")
    asis_output(res)
}
a

它在我编织文档时有效，但不适用于 RNotebooks 并且不适用于sjt.frq. 但是，使用 RNotebook 可以使用以下语句：

library(sjPlot)
library(sjmisc)
library(knitr)

data(efc)
asis_output(sjt.frq(efc$e42dep, no.output=TRUE)$knitr)

1 回答 1