添加本机knitr打印方法

添加本机knitr打印方法,r,knitr,rnotebook,R,Knitr,Rnotebook,我正在寻找一种调整函数的方法,这些函数通常在查看器或浏览器中显示html表,在调用时,它们会自动将html插入knitr文档(如rnotebooks) 具体来说,我想更改包中函数的行为方式。此时,它们返回一个具有$knitr属性的对象,该属性必须手动插入,然后在查看器中生成一个html表: `r sjt.frq(efc$e42dep, no.output=TRUE)$knitr` 这些功能之一是。有办法做到这一点吗?来自: 当我编织文档时,它可以工作,但不适用于RNotebooks,也不适用于

我正在寻找一种调整函数的方法,这些函数通常在查看器或浏览器中显示html表,在调用时,它们会自动将html插入knitr文档(如rnotebooks)

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

`r sjt.frq(efc$e42dep, no.output=TRUE)$knitr`
这些功能之一是。有办法做到这一点吗?

来自:

当我编织文档时,它可以工作,但不适用于RNotebooks,也不适用于
sjt.frq
。但是,RNotebook适用于以下声明:

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

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

我的经验是,最好获得字符输出,并将其包装在
asis\u输出中well@Benjamin你是说
$output.用“字符输出”来完成
?我不熟悉这个对象。您需要一个HTML代码的字符串。将字符串放入
asis\u输出
与使用块选项
output='asis'
将同一字符串放入
cat
是一样的。您知道这样一个例子吗?我只是查了一下
DT::datadable
,如果我正确理解了代码,它们就依赖于
htmlwidgets
:htmlwidgets::createWidget(“数据表”,if(hiddedatable)NULL-else参数,package=“DT”,width=width,height=height,elementId=elementId,sizingPolicy=htmlwidgets::sizingPolicy(knitr.figure=FALSE,knitr.defaultWidth=“100%”,knitr.defaultHeight=“auto”),dependencies=deps,preRenderHook=function(实例){data=instance[[“x”]][[“data”]]]。。。。
library(sjPlot)
library(sjmisc)
library(knitr)

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