Carles López Arpí Carlesla

## 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")
	## 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")