Quickly print all images

[droglenc]

A user (Nathan Stewart) would like to create jpegs of all images on which he has digitized points. This can be accomplished with the following code (using a list of RDS files in a directory as an example).

setwd()
tmp <- listFiles(".rds")
for (i in tmp) {
  d <- showDigitizedImage(i)
  nm <- paste0(tools::file_path_sans_ext(i),"_graph.jpg")
  dev.copy(jpeg,nm,width=d$windowSize[1],height=d$windowSize[2],units="in",res=72)
  dev.off()
} 

This could be made into a function called printDigitizedImages().

[droglenc]

See saveDigitizedImage() in v0.2.7.