ネイティブの印刷方法を追加する

Question

通常、ビューアやブラウザでhtmlテーブルを表示する機能を調整する方法を探しています。これは、呼び出されたときにrnotebooksのようなknitrドキュメントにhtmlを自動的に挿入する方法です。

具体的には、パッケージの機能を変更するにはsjPlotが動作します。現時点では、彼らは手動で挿入する必要があり、その後、ビューアでHTMLテーブルを生成$knitr属性を持つオブジェクトを返す：

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

これらの機能の一つは、sjt.frqです。これを行う方法はありますか？ knit_printから

Answer 1

：

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)