Skip to contents

Find intersecting units

Source: R/intersecting_units.R
intersecting_units.Rd

Find which of the units in a spatial data object intersect with the units in another spatial data object.

Usage

intersecting_units(x, y)

# S4 method for Raster,ANY
intersecting_units(x, y)

# S4 method for ANY,Raster
intersecting_units(x, y)

# S4 method for Spatial,ANY
intersecting_units(x, y)

# S4 method for ANY,Spatial
intersecting_units(x, y)

# S4 method for SpatRaster,SpatRaster
intersecting_units(x, y)

# S4 method for sf,sf
intersecting_units(x, y)

# S4 method for SpatRaster,sf
intersecting_units(x, y)

# S4 method for sf,SpatRaster
intersecting_units(x, y)

Arguments

x

sf::st_sf() or terra::rast() object.

y

sf::st_sf() or terra::rast() object.

Value

An integer vector of indices of the units in x that intersect with y.

Details

The performance of this function for large terra::rast() objects can be improved by increasing the GDAL cache size. The default cache size is 25 MB. For example, the following code can be used to set the cache size to 4 GB.

terra::gdalCache(size = 4000)

See also

See fast_extract() for extracting data from spatial datasets.

Examples

# \dontrun{
# create data
r <- terra::rast(matrix(1:9, byrow = TRUE, ncol = 3))
r_with_holes <- r
r_with_holes[c(1, 5, 9)] <- NA
ply <- sf::st_as_sf(terra::as.polygons(r))
ply_with_holes <- sf::st_as_sf(terra::as.polygons(r_with_holes))

# intersect raster with raster
par(mfrow = c(1, 2))
plot(r, main = "x = SpatRaster", axes = FALSE)
plot(r_with_holes, main = "y = SpatRaster", axes = FALSE)

print(intersecting_units(r, r_with_holes))
#> [1] 2 3 4 6 7 8

# intersect raster with sf
par(mfrow = c(1, 2))
plot(r, main = "x = SpatRaster", axes = FALSE)
plot(ply_with_holes, main = "y = sf", key.pos = NULL, reset = FALSE)

print(intersecting_units(r, ply_with_holes))
#> [1] 2 3 4 6 7 8

# intersect sf with raster
par(mfrow = c(1, 2))
plot(ply, main = "x = sf", key.pos = NULL, reset = FALSE)
plot(r_with_holes, main = "y = SpatRaster")

print(intersecting_units(ply, r_with_holes))
#> [1] 2 3 4 6 7 8

# intersect sf with sf
par(mfrow = c(1, 2))
plot(ply, main = "x = sf", key.pos = NULL, reset = FALSE)
plot(ply_with_holes, main = "y = sf", key.pos = NULL, reset = FALSE)

print(intersecting_units(ply, ply_with_holes))
#> [1] 2 3 4 6 7 8
# }