rasterio code snippets in r