library(terra)
## crs changes where it is longitudinally, this is southern hemi range for UTM
r <- rast(ext(c(1e+05, 9e+05, 11e+05, 1e+07)), res = 1e5, crs = "EPSG:32755")
plot(project(densify(as.polygons(r), 5000), "EPSG:4326"))
maps::map(add= TRUE)
here with the strictly-6 utm boundary zones overplotted