library(sf)
# Create a simple sf object with duplicate polygons
poly1 <- st_polygon(list(rbind(c(0,0), c(1,0), c(1,1), c(0,1), c(0,0))))
poly2 <- st_polygon(list(rbind(c(0,0), c(1,0), c(1,1), c(0,1), c(0,0)))) # duplicate
poly3 <- st_polygon(list(rbind(c(2,2), c(3,2), c(3,3), c(2,3), c(2,2))))
candidates <- st_sf(geometry = st_sfc(poly1, poly2, poly3))
cleansed <- cleanse_duplicates(candidates)
Run the code above in your browser using DataLab