sts_dev_copy = new.env()

sts_dev_copy$dev_copy = function( device, … ){

dev.copy( device , ...)
dev.off()

}