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