Traveling salesman image drawing

This is a fun drawing experiment in R by Antonio Sánchez Chinchón. A simple process: convert an image to black and white, sample the black points, and then solve the Traveling Salesman Problem for those points. Draw the resulting path for something like the above.

Grab the R code to try it with your own images and settings.