From 92ecc06be92f5c4cfb078af454ee0302698a023c Mon Sep 17 00:00:00 2001
From: see24 <sarahendicott4@gmail.com>
Date: Tue, 2 Apr 2024 12:32:48 -0400
Subject: [PATCH] unioning roads using lots of memory. try removing

---
 R/pathsToLines.R | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/R/pathsToLines.R b/R/pathsToLines.R
index 900ed75..4f161fc 100644
--- a/R/pathsToLines.R
+++ b/R/pathsToLines.R
@@ -118,15 +118,14 @@ pathsToLines <- function(sim){
       cellsToKeep <- v[keep[[1]]]
       cellsToKeep <- na.omit(cellsToKeep)
       outLine <- sf::st_linestring(terra::xyFromCell(sim$weightRaster,
-                                                      cellsToKeep)) %>%
-        sf::st_sfc()
+                                                      cellsToKeep)) 
     } else {
       outLine <- lapply(keep, function(x){
         cellsToKeep <- v[x]
         cellsToKeep <- na.omit(cellsToKeep)
         sf::st_linestring(terra::xyFromCell(sim$weightRaster, cellsToKeep))
       })
-      outLine <- sf::st_union(outLine %>% sf::st_as_sfc())
+      outLine <- do.call(c, outLine)
     }
 
 
@@ -153,8 +152,6 @@ pathsToLines <- function(sim){
     return(slice(sim$roads, 0))
   }
 
-  outLines <- do.call(c, linelist) %>%
-    sf::st_union()
-  outLines <- sf::st_sf(geometry = outLines)
+  outLines <- sf::st_sf(geometry = linelist %>% sf::st_as_sfc())
   return(sf::st_set_crs(outLines, sf::st_crs(sim$roads)))
 }