remove min/max warnings on empty point sets

edzer · edzer · commit d81f8ca0b60c · 2023-03-13T11:59:14.000+01:00
diff --git a/R/bbox.R b/R/bbox.R
@@ -10,7 +10,10 @@ bb_wrap = function(bb) {
 }
 
 bbox.pointmatrix = function(obj, ...) {
-	bb_wrap(as.vector(t(apply(obj[,1:2,drop=FALSE], 2, range))))
+	if (nrow(obj) == 0)
+		bb_wrap(rep(NA_real_, 4))
+	else
+		bb_wrap(as.vector(t(apply(obj[,1:2,drop=FALSE], 2, range))))
 }
 
 bbox.Set = function(obj, ...) {

Original file line number	Diff line number	Diff line change
`@@ -10,7 +10,10 @@ bb_wrap = function(bb) {`
`10`	`10`	`}`
`11`	`11`
`12`	`12`	`bbox.pointmatrix = function(obj, ...) {`
`13`		`- bb_wrap(as.vector(t(apply(obj[,1:2,drop=FALSE], 2, range))))`
	`13`	`+ if (nrow(obj) == 0)`
	`14`	`+ bb_wrap(rep(NA_real_, 4))`
	`15`	`+ else`
	`16`	`+ bb_wrap(as.vector(t(apply(obj[,1:2,drop=FALSE], 2, range))))`
`14`	`17`	`}`
`15`	`18`
`16`	`19`	`bbox.Set = function(obj, ...) {`