added launch image method to r script