Changes to the photo-tagging R code