Fixes wrong step

eliocamp · Oct 15, 2024 · 1c3d2c3 · 1c3d2c3
1 parent 31938a4
commit 1c3d2c3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/geom_streamline.R b/R/geom_streamline.R
@@ -545,7 +545,7 @@ streamline.f <- function(field, dt = 0.1, S = 3, skip.x = 1, skip.y = 1, nx = NU
     points[, group := interaction(group, piece, end)]
     points[, line := group]
 
-    points[, step := seq(0, .N), by = .(group)]
+    points[, step := seq(1, .N), by = .(group)]
     return(points[, .(x, y, group, piece, end, step, dx, dy, line)])
 }