remove_duplicates {spatialEco}

Remove duplicate geometries

Description

Removes duplicate geometries in a single-part feature class

Usage

remove_duplicates(x, threshold = 0.00001)

Arguments

x

An sf POINT, POLYGON or LINESTRING object

threshold

A distance threshold indicating fuzzy duplication, default i 0.00001

Details

This function removes duplicate geometries based on order and not "non null" attribution or other factors, the first feature gets to stay. If one needs to know which points were removed sf::st_difference can be used between original data and results of the function.

Value

sf object, of same feature class as x, with duplicate geometries removed

Author(s)

Jeffrey S. Evans <[e-mail]>

Examples

library(sf)

# data with 10 duplicate obs
s <- data.frame(x = runif(100), y = runif(100))
  s <- data.frame(rbind(s, s[sample(1:nrow(s), 10),]) ) 
    s <- st_as_sf(s, coords = c("x", "y"))
      s$ID <- 1:nrow(s)

nrow(s) 
nrow( srmd <- remove_duplicates(s) )