fixed issues related to polygons_3d

Author: mtennekes

R/tm_crs.R

@@ -38,6 +38,13 @@ tm_crs = function(crs = NA, property = NA, bbox = NULL) {
 
 consider_global = function(x, th = 0.6) {
 	b = sf::st_bbox(x)
+	# in case margins are applied
+	if (sf::st_is_longlat(b)) {
+		b["xmin"] = max(b["xmin"], -180)
+		b["xmax"] = min(b["xmax"], 180)
+		b["ymin"] = max(b["ymin"], -90)
+		b["ymax"] = min(b["ymax"], 90)
+	}
 	if (b$xmin == b$xmax || b$ymin == b$ymax) return(FALSE)
 	earth_surface = 5.1e14
 	area = b |>

R/tmapTrans.R

@@ -246,9 +246,9 @@ tmapTransRaster = function(shpTM, ord__, plot.order, args) {
 tmapTransPolygons = function(shpTM, ord__, plot.order, args, scale) {
 	within(shpTM, {
 		is_stars = inherits(shp, "dimensions")
-		if (is_stars && args$polygons.only == "no") {
+		if (is_stars && args$polygons.only != "yes") {
 			### stars
-			s = structure(list(values = matrix(TRUE, nrow = nrow(shp))), dimensions = shp, class = "stars")
+			s = structure(list(values = matrix(TRUE, nrow = nrow(shp), ncol = ncol(shp))), dimensions = shp, class = "stars")
 			shp = sf::st_as_sfc(s, as_points = FALSE)
 		} else if (is_stars) {
 			shp = sf::st_sfc()