fix name clash with (upcoming) lwgeom

edzer · edzer · commit 0db0bcbba774 · 2024-02-12T14:18:25.000+01:00
diff --git a/R/geom-measures.R b/R/geom-measures.R
@@ -128,7 +128,10 @@ st_perimeter = function(x, ...) {
 		if (!requireNamespace("lwgeom", quietly = TRUE))
 			stop("package lwgeom required, please install it first")
 		# note that units are handled appropriately by lwgeom
-		lwgeom::st_perimeter(x)
+		if (packageVersion("lwgeom") <= "0.2-13")
+			lwgeom::st_perimeter(x)
+		else
+			lwgeom::st_perimeter_lwgeom(x)
 	}
 }
 

Original file line number	Diff line number	Diff line change
`@@ -128,7 +128,10 @@ st_perimeter = function(x, ...) {`
`128`	`128`	`if (!requireNamespace("lwgeom", quietly = TRUE))`
`129`	`129`	`stop("package lwgeom required, please install it first")`
`130`	`130`	`# note that units are handled appropriately by lwgeom`
`131`		`- lwgeom::st_perimeter(x)`
	`131`	`+ if (packageVersion("lwgeom") <= "0.2-13")`
	`132`	`+ lwgeom::st_perimeter(x)`
	`133`	`+ else`
	`134`	`+ lwgeom::st_perimeter_lwgeom(x)`
`132`	`135`	`}`
`133`	`136`	`}`
`134`	`137`