gpkg_path <- system.file("extdata", "clc.gpkg", package = "clc")
clc <- sf::st_read(gpkg_path, layer = "clc")
lanjaron <- sf::st_read(gpkg_path, layer = "lanjaron")
clc_clipped <- safe_clip_multipoligon(clc, lanjaron)
Run the code above in your browser using DataLab