fix z_range/m_range setting

edzer · edzer · commit c860f681b58c · 2025-11-07T14:28:50.000+01:00
diff --git a/R/sf.R b/R/sf.R
@@ -74,9 +74,9 @@ st_as_sf.data.frame = function(x, ..., agr = NA_agr_, coords, wkt,
 				coords = match(coords, names(x))
 			x = x[-coords]
 		}
-		if (grepl("Z", dim))
+		if (length(coords) > 2 && grepl("Z", dim))
 			attr(x[[sf_column_name]], "z_range") = compute_z_range(x[[sf_column_name]])
-		if (grepl("M", dim))
+		if (length(coords) > 2 && grepl("M", dim))
 			attr(x[[sf_column_name]], "m_range") = compute_m_range(x[[sf_column_name]])
 
 	}

Original file line number	Diff line number	Diff line change
`@@ -74,9 +74,9 @@ st_as_sf.data.frame = function(x, ..., agr = NA_agr_, coords, wkt,`
`74`	`74`	`coords = match(coords, names(x))`
`75`	`75`	`x = x[-coords]`
`76`	`76`	`}`
`77`		`- if (grepl("Z", dim))`
	`77`	`+ if (length(coords) > 2 && grepl("Z", dim))`
`78`	`78`	`attr(x[[sf_column_name]], "z_range") = compute_z_range(x[[sf_column_name]])`
`79`		`- if (grepl("M", dim))`
	`79`	`+ if (length(coords) > 2 && grepl("M", dim))`
`80`	`80`	`attr(x[[sf_column_name]], "m_range") = compute_m_range(x[[sf_column_name]])`
`81`	`81`
`82`	`82`	`}`