r - Knitr を使用して R チャンク内から .md ドキュメントにプログラムで画像を含める

Question

.Rmd マークダウンドキュメントにプログラムで多くの画像を含めたい。何かのようなもの

```{r echo=FALSE}
cat("![](myfile_1.png)")
```

結果の.md出力が

```
## ![](myfile_1.png)
```

コードタグ```と先頭の##. Rチャンク内からマークダウンコードを直接挿入するオプションはありますか?

BTY: 同じ問題が HTML にも当てはまります。ここでも、R チャンク内からの HTML コードインジェクションが非常に役立ちます。

score 13 · Accepted Answer

使用results ='asis'すると、フックやコメントなどをいじる必要がなくなります。結果はコードではなく、マークダウン (または出力形式が何であれ) と見なされるためです。

```{r myfile-1-plot, echo = F, results = 'asis'}
cat('\n![This is myfile_1.png](myfile1.png)\n')
```

結果として

![This is myfile_1.png](myfile1.png)

出力テキストを改行マーカーで囲んで、別の行にあることを確認していることに注意してください。

score 1 · Accepted Answer

を使用すると仮定すると、次のオプションknitrを使用できます。comment

```{r echo=FALSE, comment=""}
cat("![](myfile_1.png)")
```

編集

フックを変更する必要があります。

```{r echo=FALSE, comment=""}
knit_hooks$set(output = function(x,
        options) x)
cat("![](myfile_1.png)")
```

マークダウンを再度レンダリングする場合は、必ずフックを再度リセットしてください。1 つの方法は、を使用することrender_markdown()です。

```{r b, echo=FALSE, comment=""}
render_markdown()
a <- 1
```

score 1 · Accepted Answer

ループで使用するには、データフレームから大量の画像を貼り付ける必要がある場合:

for(h in 1:nrow(file_names)){
   image_file<-paste('\n![](', file_names[h],')\n',sep="") 
   cat('\n')
   cat(image_file)
   cat('\n')
}