添加原生针织打印方法

Question

我正在寻找一种方法来调整函数，这些函数通常在查看器或浏览器中显示html表，当被调用时，它们会自动将html插入到像rnotebook这样的knitr文档中。

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

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

其中一个函数是sjt.frq。有没有办法做到这一点？

Answer 1

来自knit_print

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)