if (interactive() && requireNamespace("EBImage")) {
library(terra)
library(pliman)
# Create a sample mosaic
mosaic <- rast(nrow=10, ncol=10, xmin=-120, xmax=-60, ymin=30, ymax=60)
# Project the mosaic to the appropriate UTM zone
mosaic_lonlat2epsg(mosaic)
}
Run the code above in your browser using DataLab