if (rlang::is_installed("sf")) {
nc <- sf::st_read(
system.file("shape/nc.shp", package = "sf"),
quiet = TRUE
)
x <- as_rsgeo(nc$geometry[1:5])
y <- rev(x)
# intersects
intersects_sparse(x, y)
intersects_pairwise(x, y)
# contains
contains_sparse(x, y)
contains_pairwise(x, y)
# within
within_sparse(x, y)
within_pairwise(x, y)
}
Run the code above in your browser using DataLab