UC-CES outputs projection allignment

This needs to be applied to the outputs before transferral to shiny app:

```
# Load map
hard_rec <- terra::rast(paste0(ces_path, "/RP_maps/recreation_potential_CairngormNP_HR_ReducedMod.tif"))

#Project map
hard_rec_proj_agg <- hard_rec |>
 terra::project("EPSG:3857") |>
 terra::aggregate(fact = 2, fun = "mean")
```