Add check for Amersfoort projection

inbo · Feb 8, 2024 · 88250b2 · 88250b2
1 parent ba53d3d
commit 88250b2
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/source/R/steekproeftrekking_nabehandeling.R b/source/R/steekproeftrekking_nabehandeling.R
@@ -68,6 +68,7 @@ replace_by_existing <- function(sample,
                                 gebied,
                                 overlap_prop = 0.5,
                                 sbp_file) {
+  stop(sf::st_crs(existing_points)$input == "EPSG:28992")
   # Determine where HOL and OL is in gebied
   ol <- selectie_openheid(
     gebied = gebied,