Native Knitr Print Methoden hinzufügen

Question

Ich bin auf der Suche nach einer Möglichkeit, Funktionen anzupassen, die HTML-Tabellen im Viewer oder Browser in einer Weise zeigen, dass sie automatisch den HTML-Code in knitr Dokumente wie rnotebooks einfügen, wenn sie aufgerufen werden.

Speziell ich möchte die Art ändern, wie sich Funktionen im Paket sjPlot verhalten. Im Moment kehren sie ein Objekt mit einem $knitr Attribute, das manuell eingefügt werden muss, und erzeugen dann eine HTML-Tabelle in dem Betrachter:

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

Eine dieser Funktionen sjt.frq ist. Gibt es eine Möglichkeit, dies zu tun?

Answer 1

Von knit_print:

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

Es funktioniert, wenn ich Dokument stricken, funktioniert aber nicht mit RNotebooks und funktioniert nicht mit sjt.frq. Jedoch mit RNotebook arbeitet die folgende Anweisung:

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

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