Update R/stroke.R

Co-authored-by: Claudiu Forgaci <[email protected]>
CityRiverSpaces · Dec 16, 2024 · 5c20e8c · 5c20e8c
1 parent 21a8f32
commit 5c20e8c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/stroke.R b/R/stroke.R
@@ -339,6 +339,7 @@ merge_lines <- function(nodes, segments, links, edge_ids,
                                 segments, links, is_segment_used)
     stroke <- rev(stroke)
 
+    # keep track of edge ids of strokes and add current stroke to strokes 
     is_segment_used[stroke] <- TRUE
     stroke_labels[edge_ids[stroke]] <- istroke
     strokes <- c(strokes, to_linestring(stroke, segments, nodes))