require(sf)
file <- system.file("extdata", "example.shp", package = "cleangeo")
sf <- sf::st_read(file)
sp <- as(sf, "Spatial")
report <- clgeo_CollectionReport(sp)
nv <- clgeo_SuspiciousFeatures(report)
Run the code above in your browser using DataLab