Modified ssn_write(), ssn_subset(), and ssn_split_predpts() to remove…

… netgeometry column before using st_write. This prevents column names from being abbreviated in the new shapefile

R/ssn_split_predpts.R

@@ -226,7 +226,9 @@ ssn_split_predpts <- function(ssn, predpts, size_predpts, by,
         }
 
         ## Write shapefile
-        st_write(sub.data, paste0(id_predpts2, ".shp"), quiet = TRUE)
+        ind<- colnames(sub.data) == "netgeometry"
+        st_write(sub.data[,!ind], paste0(id_predpts2, ".shp"), quiet = TRUE)
+        rm(ind)
 
         ## Add to existing ssn
         new.index <- length(ssn$preds) + 1
@@ -264,7 +266,9 @@ ssn_split_predpts <- function(ssn, predpts, size_predpts, by,
       }
 
       ## write subset of prediction points to file
-      st_write(sub.data, paste0(id_predpts, ".shp"), quiet = TRUE)
+      ind<- colnames(sub.data) == "netgeometry"
+      st_write(sub.data[,!ind], paste0(id_predpts, ".shp"), quiet = TRUE)
+      rm(ind)
 
       ## Add to existing ssn
       new.index <- length(ssn$preds) + 1
@@ -317,7 +321,9 @@ ssn_split_predpts <- function(ssn, predpts, size_predpts, by,
         }
 
         ## write subset of prediction points to file
-        st_write(sub.data, paste0(id_predpts, ".shp"), quiet = TRUE)
+        ind<- colnames(sub.data) == "netgeometry"
+        st_write(sub.data[,!ind], paste0(id_predpts, ".shp"), quiet = TRUE)
+        rm(ind)
 
         ## Add to existing ssn
         new.index <- length(ssn$preds) + 1

R/ssn_subset.R

@@ -141,6 +141,9 @@ ssn_subset <- function(ssn, path, subset, clip = FALSE, overwrite = FALSE) {
     }
 
     ## Write sites shapefile
+    ## REMOVE netgeomtry b/c > 10 character column name
+    ind <- colnames(ssn.tmp$obs) == "netgeometry"
+    ssn.tmp$obs<- ssn.tmp$obs[,!ind]
     st_write(ssn.tmp$obs, paste0(file, "/sites.shp"), quiet = TRUE)
 
 
@@ -201,6 +204,9 @@ ssn_subset <- function(ssn, path, subset, clip = FALSE, overwrite = FALSE) {
       edges.sub <- ssn.tmp$edges[ind.edges, ]
 
       ## Save subset of edges
+      ## REMOVE netgeomtry b/c > 10 character column name
+      ind <- colnames(edges.sub) == "netgeometry"
+      edges.sub<- edges.sub[,!ind]
       st_write(edges.sub, paste0(ssn.tmp$path, "/edges.shp"), quiet = TRUE)
 
 
@@ -243,7 +249,12 @@ ssn_subset <- function(ssn, path, subset, clip = FALSE, overwrite = FALSE) {
               rm(ind, ind2)
             }
             ## Subset predictions
+
+
             preds.sub <- ssn.tmp$preds[[pred.name]][ind.preds, ]
+
+            ind <- colnames(preds.sub) == "netgeometry"
+            preds.sub<- preds.sub[,!ind]
             st_write(preds.sub, paste0(ssn.tmp$path, "/", pred.name, ".shp"),
               quiet = TRUE
             )

R/ssn_write.R

@@ -91,10 +91,16 @@ ssn_write <- function(ssn, path, overwrite = FALSE,
 
     ## Copy observed sites if they exist
     if (class(ssn.tmp$obs)[1] == c("sf")) {
+      ## REMOVE netgeomtry b/c > 10 character column name
+      ind <- colnames(ssn$obs) == "netgeometry"
+      ssn$obs<- ssn$obs[,!ind]
       st_write(ssn$obs, paste0(ssn.tmp$path, "/sites.shp"), quiet = TRUE)
     }
 
     ## Copy edges
+    ## REMOVE netgeomtry b/c > 10 character column name
+    ind <- colnames(ssn$edges) == "netgeometry"
+    ssn$edges<- ssn$edges[,!ind]
     st_write(ssn$edges, paste0(ssn.tmp$path, "/edges.shp"), quiet = TRUE)
 
     ## Copy prediction sites
@@ -106,6 +112,10 @@ ssn_write <- function(ssn, path, overwrite = FALSE,
       pred.name.vec <- attributes(ssn.tmp$preds)$names
       for (i in seq_len(pred.len)) {
         pred.name <- pred.name.vec[i]
+        ## REMOVE netgeomtry b/c > 10 character column name
+        ind <- colnames(ssn$preds[[pred.name]]) == "netgeometry"
+        ssn$preds[[pred.name]]<- ssn$preds[[pred.name]][,!ind]
+
         st_write(ssn$preds[[pred.name]], paste0(
           ssn.tmp$path, "/",
           pred.name, ".shp"