attempt to preserve original class/type while also handling delete holes

r-spatial · Jan 6, 2019 · 279831c · 279831c
1 parent 0f8aeb7
commit 279831c
Showing 1 changed file with 12 additions and 7 deletions.
diff --git a/R/merge.R b/R/merge.R
@@ -38,13 +38,18 @@ merge_edit <- function(
   mapply(
     function(ed, ed_id) {
       matched_id_row = which(orig_ids == ed_id)
-      sf::st_geometry(orig2)[matched_id_row] <<- ed
-      # sf::st_geometry(orig2)[matched_id_row] <<- sf::st_geometry(sf::st_cast(
-      #   sf::st_sfc(ed),
-      #   as.character(sf::st_geometry_type(
-      #     sf::st_geometry(orig2[matched_id_row,])
-      #   ))
-      # ))
+      # sf::st_geometry(orig2)[matched_id_row] <<- ed
+      tryCatch(
+        sf::st_geometry(orig2)[matched_id_row] <<- sf::st_geometry(sf::st_cast(
+          sf::st_sfc(ed),
+          as.character(sf::st_geometry_type(
+            sf::st_geometry(orig2[matched_id_row,])
+          ))
+        )),
+        error = function(e) {
+          sf::st_geometry(orig2)[matched_id_row] <<- ed
+        }
+      )
       return(NULL)
     },
     sf::st_geometry(edits),