r-markdown - RMarkdownとKnitrからR出力のハッシュを削除します

Question

RStudioを使用してRMarkdownファイルを書き込んでいます。##コード出力の前に表示される最終的なHTML出力ファイルのハッシュ（）を削除するにはどうすればよいですか？

例として：

---
output: html_document
---

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

Answer 1

チャンクオプションに次のようなものを含めることができます

comment=NA # to remove all hashes

また

comment='%' # to use a different character

ここから利用可能なknitrの詳細なヘルプ：http：//yihui.name/knitr/options

前述のようにRMarkdownを使用している場合、チャンクは次のようになります。

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

これをグローバルに変更する場合は、ドキュメントにチャンクを含めることができます。

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

Answer 2

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 結果:

    ウェルチの 2 標本 t 検定


データ: mtcars$mpg および mtcars$wt
   t = 15.633、自由度 = 32.633、p 値 < 0.00000000000000022
   対立仮説: 真の平均差は 0 と等しくない
   95% 信頼区間:
    14.67644 19.07031
   サンプル見積もり:
   x の平均 y の平均
    20.09062 3.21725
   

PDFのみ

出力が PDF の場合、置換機能が必要になる場合があります。ここで私が使用しているもの：

```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))
```

PDF結果

PDFとHTML

PDF と 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"))
  }
```

結果

PDF の結果は同じで、HTML の結果は前のものに近いですが、余分な境界線があります。

完璧ではありませんが、おそらく十分です。