From 6737364aae86602ad0dc1d3cb7f0091df5816c7a Mon Sep 17 00:00:00 2001
From: Francesco Bailo <me@francescobailo.net>
Date: Wed, 30 Jan 2019 13:44:20 +1100
Subject: [PATCH] Added test for unicity of ids

---
 R/reconcileGeographies.R | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/R/reconcileGeographies.R b/R/reconcileGeographies.R
index 4290900..bda41ae 100644
--- 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]])