Add removal of invalid building polygons in get_buildings_osm(), whic…

…h remained in spite of st_make_valid(). Related to r-spatial/sf#1649

NEWS.md

@@ -7,6 +7,8 @@
 
 * Fix error in `rasterise_buildings()`. Getting the files for land use rasters resulted in an error (e.g. multiple files). Syntax for re-naming for the output using the `glue::glue()` function also did not work within package environment.
 
+* Add removal of invalid building polygons in `get_buildings_osm()`, which remained in spite of `st_make_valid()`. Related to https://github.com/r-spatial/sf/issues/1649
+
 <br>
 
 # home2park 0.1.0

R/get_buildings_osm.R

@@ -109,6 +109,9 @@ get_buildings_osm <- function(place, date = NULL, dir_raw = osmextract::oe_downl
         sf::st_cast("MULTIPOLYGON", warn = FALSE) %>%
         sf::st_cast("POLYGON", warn = FALSE))
 
+    # rm invalid building polygons
+    results <- results[sf::st_is_valid(results),]
+
     # convert building_levels ---- if no info, set as 1; if underground, NA; convert to
     # numeric, round up
     suppressWarnings(results <- results %>%

inst/WORDLIST

@@ -40,3 +40,4 @@ visitors'
 '
 doi
 figshare
+zenodo