fix: change default zoom, for backward compatibility

rCarto · rCarto · commit cea0668d94ee · 2025-12-03T11:06:18.000+01:00
diff --git a/R/utils.R b/R/utils.R
@@ -122,7 +122,7 @@ get_zoom <- function(zoom, bbox_lonlat) {
   if (missing(zoom)) {
     gz <- bbox_tile_query(bbox_lonlat)
     suitable_zooms <- gz$total_tiles <= 4
-    zoom <- gz$zoom[max(which(suitable_zooms))]
+    zoom <- gz$zoom[max(which(suitable_zooms))] + 1
   }
   return(zoom)
 }
diff --git a/inst/tinytest/test_maptiles.R b/inst/tinytest/test_maptiles.R
@@ -10,7 +10,7 @@ nc_sfc <- st_geometry(nc_sf)
 nc_bbox <- st_bbox(nc_sf)
 nc_SpatVector <- vect(nc_sf)
 nc_SpatRaster <- rast(nc_SpatVector)
-nc_SpatExtent <- ext(project(nc_SpatVector, "epsg:4326"))
+nc_SpatExtent <- ext(project(nc_SpatVector, "EPSG:4326"))
 nc_sf_centro <- nc_sf[1, ]
 st_geometry(nc_sf_centro) <- st_centroid(st_geometry(nc_sf_centro))
 nc_SpatVector_centro <- vect(nc_sf_centro)

Original file line number	Diff line number	Diff line change
`@@ -122,7 +122,7 @@ get_zoom <- function(zoom, bbox_lonlat) {`
`122`	`122`	`if (missing(zoom)) {`
`123`	`123`	`gz <- bbox_tile_query(bbox_lonlat)`
`124`	`124`	`suitable_zooms <- gz$total_tiles <= 4`
`125`		`- zoom <- gz$zoom[max(which(suitable_zooms))]`
	`125`	`+ zoom <- gz$zoom[max(which(suitable_zooms))] + 1`
`126`	`126`	`}`
`127`	`127`	`return(zoom)`
`128`	`128`	`}`