Generate a photo-gallery README for a directory of figs

photo-gallery-README.R

## this snippet was the original gist but the Rmd solution below is even nicer

## auto-generate a visual index as README.md in current working directory
fig_files <- list.files(pattern = "jpg$") # change to png$ as needed!
writeLines(paste0(fig_files, "\n",
                  "![`", fig_files, "`](", fig_files, ")\n\n"), "README.md")

photo-gallery-README.Rmd

---
output:
  html_document:
    keep_md: TRUE
---

I added this file after seeing Hadley's suggestion to do this in an R markdown chunk.

```{r, results ="asis", echo = FALSE}
fig_files <- dir(pattern = "png$") 
cat(paste0("* ", fig_files, " ![](", fig_files, ")\n"))
```

I think this might be better as an Rmarkdown block:

`�``{r, results ="asis"}
fig_files <- dir(pattern = "jpg$") 
paste0("* ", fig_files, " ![]](", fig_files, ")\n")
`�``

I think this might be better as an Rmarkdown block:

`�``{r, results ="asis"}
fig_files <- dir(pattern = "jpg$") 
paste0("* ", fig_files, " ![]](", fig_files, ")\n")
`�``

Good idea @hadley! I hate how I don't get notified of comments 😦 but glad to have eventually seen this.

Good idea @hadley! I hate how I don't get notified of comments 😦 but glad to have eventually seen this.