Set geometry for coords

PhilipMostert · Jan 22, 2024 · 70d19f6 · 70d19f6
1 parent bf45e11
commit 70d19f6
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/dataSet.R b/R/dataSet.R
@@ -73,6 +73,7 @@ dataSet <- function(datapoints, datanames, coords, proj, pointcovnames,
 
       if (inherits(datapoints[[dat]], 'sf')) {
 
+        st_geometry(datapoints[[dat]]) <- 'geometry'
         coordsSF <- sf::st_coordinates(datapoints[[dat]])
         colnames(coordsSF) <- coords
         datapoints[[dat]][, coords] <- coordsSF