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.

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

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