जुपीटर (आर) में लाटेक्स/एचटीएमएल कैसे प्रस्तुत करें?

Question

मैंने अभी आर के साथ जुपीटर का उपयोग शुरू किया है, और मुझे आश्चर्य है कि HTML या LaTeX आउटपुट प्रदर्शित करने का कोई अच्छा तरीका है या नहीं।

यहाँ है कि मैं काम करना चाहते हैं कुछ उदाहरण कोड है:

library(xtable) 
x <- runif(500, 1, 50) 
y <- x + runif(500, -5, 5) 
model <- lm(y~x) 
print(xtable(model), type = 'html') 

के बजाय एचटीएमएल प्रतिपादन, यह सिर्फ सादा पाठ के रूप में यह प्रदर्शित करता है। क्या उस व्यवहार को बदलने का कोई तरीका है?

Answer 1

repr का संयोजन (विकल्पों को सेट करने के लिए) और IRdisplay HTML के लिए काम करेगा। दूसरों को लेटेक्स के बारे में पता हो सकता है।

# Cell 1 ------------------------------------------------------------------ 

library(xtable) 
library(IRdisplay) 
library(repr) 

data(tli) 
tli.table <- xtable(tli[1:20, ]) 
digits(tli.table) <- matrix(0:4, nrow = 20, ncol = ncol(tli)+1) 

options(repr.vector.quote=FALSE) 

display_html(paste(capture.output(print(head(tli.table), type = 'html')), collapse="", sep="")) 


# Cell 2 ------------------------------------------------------------------ 

display_html("<span style='color:red; float:right'>hello</span>") 

# Cell 3 ------------------------------------------------------------------ 

display_markdown("[this](http://google.com)") 

# Cell 4 ------------------------------------------------------------------ 

display_png(file="shovel-512.png") 

# Cell 5 ------------------------------------------------------------------ 

display_html("<table style='width:20%;border:1px solid blue'><tr><td style='text-align:right'>cell 1</td></tr></table>") 

Answer 2

मैं प्रारंभिक, सरल उपयोग के मामले के लिए, एक सरल जवाब मिल गया।

यदि आप मुद्रित करने के लिए कॉल में इसे लपेटे बिना xtable कहते हैं, तो यह पूरी तरह से काम करता है। उदा।,

library(xtable) 
data(cars) 
model <- lm(speed ~ ., data = cars) 
xtable(model) 

Answer 3

जुपीटर में, आप मार्कडाउन का उपयोग कर सकते हैं। बस ज्यूपिटर सेल को कोड सेल से मार्कडाउन सेल में बदलना सुनिश्चित करें। एक बार ऐसा करने के बाद आप लाटेक्स के पहले और उसके बाद बस एक डबल डॉलर का चिह्न ("$$") डाल सकते हैं। फिर सेल चलाएं।

चरण निम्नानुसार हैं: 1. मार्कडाउन सेल बनाएं। 2. $$ कुछ लाटेक्स $$ 3. जुपीटर के अंदर प्ले बटन दबाएं।

Answer 4

सत्र एचटीएमएल के रूप में xtable द्वारा दिया वस्तुओं को प्रदर्शित करेगा xtable द्वारा उत्पन्न में निम्नलिखित समारोह को परिभाषित करना: repr_html.xtable समारोह के बिना

repr_html.xtable <- function(obj, ...){ 
    paste(capture.output(print(obj, type = 'html')), collapse="", sep="") 
} 

library(xtable) 
data(cars) 
model <- lm(speed ~ ., data = cars) 
xtable(model) 

, क्योंकि लौटे वस्तु वर्ग data.frame, में प्रदर्शन प्रणाली की भी है कर्नेल समृद्ध प्रदर्शन करेगा कि ऑब्जेक्ट (= html तालिका) repr::repr_html.data.frame के माध्यम से।

बस नहीं print(...) कर वस्तु :-)