From 5c156e493f6a509faa9fdbca504e22dcd587f140 Mon Sep 17 00:00:00 2001
From: robinlovelace <rob00x@gmail.com>
Date: Thu, 2 Nov 2023 17:07:39 +0000
Subject: [PATCH] Add code to test #552

---
 R/linefuns.R  | 1 +
 R/rnet_join.R | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/R/linefuns.R b/R/linefuns.R
index 1a9ecd01..603cb763 100644
--- a/R/linefuns.R
+++ b/R/linefuns.R
@@ -202,6 +202,7 @@ line_segment.sf <- function(
     # If using rsgeo, we can do the whole thing in one go:
     segment_lengths <- as.numeric(sf::st_length(l))
     n_segments <- n_segments(segment_lengths, segment_length)
+    browser()
     res <- line_segment_rsgeo(l, n_segments = n_segments)
     return(res)
   }
diff --git a/R/rnet_join.R b/R/rnet_join.R
index 444c5a66..84cf10c1 100644
--- a/R/rnet_join.R
+++ b/R/rnet_join.R
@@ -222,7 +222,10 @@ line_cast <- function(x) {
 #' # system("gh release download v1.0.2")
 #' # rnet_x = sf::read_sf("rnet_x_ed.geojson")
 #' # rnet_y = sf::read_sf("rnet_y_ed.geojson")
-#' # rnet_merged = rnet_merge(rnet_x, rnet_y, dist = 9, segment_length = 20, funs = funs)
+#' # rnet_merged = rnet_merge(rnet_x, rnet_y, dist = 9, segment_length = 15, funs = funs)
+#' if (FALSE) {
+#'
+#' }
 #' @return An sf object with the same geometry as `rnet_x`
 rnet_merge <- function(rnet_x, rnet_y, dist = 5, funs = NULL, sum_flows = TRUE, crs = geo_select_aeq(rnet_x), ...) {
   if (is.null(funs)) {