web-dev-qa-db-ja.com

R MarkdownおよびKnitrからR出力のハッシュを削除

R Markdownファイルを作成するためにRStudioを使用しています。ハッシュ（##）コード出力の前に表示される最終的なHTML出力ファイルにありますか？

例として：

---
output: html_document
---

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

enter image description here

r-markdownknitr
49
mchangun

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

comment=NA # to remove all hashes

または

comment='%' # to use a different character

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

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

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

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

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

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、df = 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 result

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の結果は前のものに近いですが、いくつかの余分な境界線があります。

HTML Result in the mixed version

それは完璧ではありませんが、多分十分でしょう。

1
Thiago Mata