GIS in R Crop and mask multi bands image from satellite