R Markdown और Knitr से R आउटपुट में Hashes निकालें




r-markdown (2)

मैं अपनी R मार्काडाउन फ़ाइलों को लिखने के लिए RStudio का उपयोग कर रहा हूं। मैं अंतिम HTML आउटपुट फ़ाइल में हैश ( ## ) कोड आउटपुट से पहले कैसे प्रदर्शित कर सकता हूं?

उदाहरण के तौर पे:

---
output: html_document
---

```{r}
head(cars)
```


बस HTML

यदि आपका आउटपुट सिर्फ HTML है, तो आप PRE या CODE HTML टैग का अच्छा उपयोग कर सकते हैं।

उदाहरण

```{r my_pre_example,echo=FALSE,include=TRUE,results='asis'}
knitr::opts_chunk$set(comment = NA)
cat('<pre>')
print(t.test(mtcars$mpg,mtcars$wt))
cat('</pre>')
```

HTML परिणाम:

    Welch Two Sample t-test

data: mtcars$mpg and mtcars$wt t = 15.633, df = 32.633, p-value < 0.00000000000000022 alternative hypothesis: true difference in means is not equal to 0 95 percent confidence interval: 14.67644 19.07031 sample estimates: mean of x mean of y 20.09062 3.21725

बस पीडीएफ

यदि आपका आउटपुट पीडीएफ है, तो आपको कुछ प्रतिस्थापित फ़ंक्शन की आवश्यकता हो सकती है। यहाँ मैं क्या उपयोग कर रहा हूँ:

```r
tidyPrint <- function(data) {
    content <- paste0(data,collapse = "\n\n")
    content <- str_replace_all(content,"\\t","    ")
    content <- str_replace_all(content,"\\ ","\\\\ ")
    content <- str_replace_all(content,"\\$","\\\\$")
    content <- str_replace_all(content,"\\*","\\\\*")
    content <- str_replace_all(content,":",": ")
    return(content)
  }
```

उदाहरण

कोड भी थोड़ा अलग होना चाहिए:

```{r my_pre_example,echo=FALSE,include=TRUE,results='asis'}
knitr::opts_chunk$set(comment = NA)
resultTTest <- capture.output(t.test(mtcars$mpg,mtcars$wt))
cat(tidyPrint(resultTTest))
```

पीडीएफ परिणाम

पीडीएफ और HTML

अगर आपको पीडीएफ और एचटीएमएल दोनों मामलों में पेज वर्क की जरूरत है, तो tidyPrint अंतिम चरण में थोड़ा अलग होना चाहिए।

```r
tidyPrint <- function(data) {
    content <- paste0(data,collapse = "\n\n")
    content <- str_replace_all(content,"\\t","    ")
    content <- str_replace_all(content,"\\ ","\\\\ ")
    content <- str_replace_all(content,"\\$","\\\\$")
    content <- str_replace_all(content,"\\*","\\\\*")
    content <- str_replace_all(content,":",": ")
    return(paste("<code>",content,"</code>\n"))
  }
```

परिणाम

पीडीएफ परिणाम समान है, और HTML परिणाम पिछले के करीब है, लेकिन कुछ अतिरिक्त सीमा के साथ।

यह सही नहीं है लेकिन शायद काफी अच्छा है।


आप अपने चंक विकल्पों में कुछ शामिल कर सकते हैं

comment=NA # to remove all hashes

या

comment='%' # to use a different character

यहाँ से उपलब्ध निट पर अधिक मदद: http://yihui.name/knitr/options

यदि आप आर मार्कडाउन का उपयोग कर रहे हैं जैसा कि आपने उल्लेख किया है, तो आपका हिस्सा इस तरह दिख सकता है:

```{r comment=NA}
summary(cars)
```

यदि आप इसे विश्व स्तर पर बदलना चाहते हैं, तो आप अपने दस्तावेज़ में एक हिस्सा शामिल कर सकते हैं:

```{r include=FALSE}
knitr::opts_chunk$set(comment = NA)
```




knitr