Added test for unicity of ids

fraba · Jan 30, 2019 · 6737364 · 6737364
1 parent e42f476
commit 6737364
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/reconcileGeographies.R b/R/reconcileGeographies.R
@@ -44,6 +44,14 @@ reconcileGeographies <- function(polyA, polyB,
     project_crs <- sf::st_crs(polyB)
   }
 
+  if(any(duplicated(as.character(polyA[[idA]]))) {
+    stop("Duplicated ids in idA")
+  }
+
+  if(any(duplicated(as.character(polyB[[idB]]))) {
+    stop("Duplicated ids in idB")
+  }
+
   polyA[['.unigeokey']] <- as.character(polyA[[idA]])
   polyB[['.unigeokey']] <- as.character(polyB[[idB]])