R/crop_to_land.R

Defines functions crop_to_land

crop_to_land <- function(shp, land) {
    suppressWarnings({
        if (!(length(land) == 1)) land <- st_union(st_combine(land))
        st_intersection(shp, land)
    })
}
MobilePhoneESSnetBigData/mobloc documentation built on Feb. 18, 2024, 3:41 a.m.