prioritize objects by smallest area before intersecting

openfigis · Oct 28, 2019 · 4aa3461 · 4aa3461
1 parent 8d553c7
commit 4aa3461
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/buildSpatialObject.R b/R/buildSpatialObject.R
@@ -140,6 +140,9 @@ buildSpatialObject <- function(item, lang, host, domain,
   }
   if(length(sp.list) > 1){
 
+    #prioritize by area
+    sp.list <- sp.list[order(sapply(sp.list, gArea))]
+
     if(verbose){
       logger.info("Geoprocessing sequential intersection...")
       logger.info(sprintf("Sequential intersection with %s (%s intersections)",length(sp.list), length(sp.list)-1))