simplify

r-spatial · Aug 27, 2024 · b4e0501 · b4e0501
1 parent 250ede1
commit b4e0501
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 8 deletions.
diff --git a/R/proxy.R b/R/proxy.R
@@ -567,10 +567,7 @@ st_crop.stars_proxy = function(x, y, ..., crop = TRUE, epsilon = sqrt(.Machine$d
 		rast = attr(dm, "raster")$dimensions
 		xd = rast[1]
 		yd = rast[2]
-		bb = if (!inherits(y, "bbox"))
-				st_bbox(y)
-			else
-				y
+		bb = st_bbox(y)
 		if (epsilon != 0)
 			bb = bb_shrink(bb, epsilon)
 		# FIXME: document how EXACTLY cropping works; https://github.com/hypertidy/tidync/issues/73

diff --git a/R/subset.R b/R/subset.R
@@ -268,10 +268,7 @@ st_crop.stars = function(x, y, ..., crop = TRUE, epsilon = sqrt(.Machine$double.
 		rastxy = attr(dm, "raster")$dimensions
 		xd = rastxy[1]
 		yd = rastxy[2]
-		bb = if (!inherits(y, "bbox"))
-				st_bbox(y)
-			else
-				y
+		bb = st_bbox(y)
 		if (any(is.na(as.numeric(bb)))) # as.numeric() can go after sf 0.7-5
 			stop("NA values in bounding box of y")
 		if (epsilon != 0)