Filter overlapping sf polygon features in a spatial data frame in R

Overlaps.r

# poly is any polygon spatial data frame
overlap <- st_intersection(poly)
overlap <- overlap[overlap$n.overlaps > 1, ] 
# The result of st_intersection contains a column called n.overlaps 
# that represents the number of overlaps for the resulting geometry. 
# If n.overlaps > 1 then multiple polygons are overlaping.
overlap <- overlap |> 
  dplyr::filter(grepl("POLYGON", st_geometry_type(geom))) |> 
  dplyr::filter(as.numeric(st_area(overlap)) > 100)
  # This filtering reduces what is returned to only results that are of 
  # polygon geometry type and with a significant area