layers = red.examples("red.layers")
records = red.examples("red.records")
par(mfrow=c(1,2))
terra::plot(layers[[1]])
points(records)
croppedLayers <- raster.read(records, layers, 0.1)
terra::plot(croppedLayers[[1]])
points(records)
Run the code above in your browser using DataLab