Argument of segment_length in line_segment fun causes issue about stplanr HOT 14 CLOSED

rnet_x = sf::read_sf("https://github.com/ropensci/stplanr/releases/download/v1.0.2/rnet_x_ed.geojson")
rnet_y = sf::read_sf("https://github.com/ropensci/stplanr/releases/download/v1.0.2/rnet_y_ed.geojson")

segment_length = 15 # will cause error, but segment_length =10 is not
library(stplanr)
# ?rnet_merge

names(rnet_y)
#> [1] "value"     "Quietness" "geometry"
funs = list(vaue = sum, Quietness = mean)

res = rnet_merge(rnet_x, rnet_y)
#> [1] "funs is NULL"
#> Joining with `by = join_by(identifier)`
res2 = rnet_merge(rnet_x, rnet_y, segment_length = segment_length)
#> [1] "funs is NULL"
#> Error in `[[<-`:
#> ! Assigned data `res` must be compatible with existing data.
#> ✖ Existing data has 3859 rows.
#> ✖ Assigned data has 3858 rows.
#> ℹ Only vectors of size 1 are recycled.
#> Caused by error in `vectbl_recycle_rhs_rows()`:
#> ! Can't recycle input of size 3858 to size 3859.
#> Backtrace:
#>      ▆
#>   1. ├─stplanr::rnet_merge(rnet_x, rnet_y, segment_length = segment_length)
#>   2. │ └─stplanr::rnet_join(rnet_x, rnet_y, dist = dist, crs = crs, ...)
#>   3. │   ├─stplanr::line_segment(rnet_y, segment_length = segment_length)
#>   4. │   └─stplanr:::line_segment.sf(rnet_y, segment_length = segment_length)
#>   5. │     └─stplanr:::line_segment_rsgeo(l, n_segments = n_segments)
#>   6. │       ├─base::`[[<-`(`*tmp*`, attr(l, "sf_column"), value = `<LINESTRING [°]>`)
#>   7. │       └─tibble:::`[[<-.tbl_df`(`*tmp*`, attr(l, "sf_column"), value = `<LINESTRING [°]>`)
#>   8. │         └─tibble:::tbl_subassign(...)
#>   9. │           └─tibble:::vectbl_recycle_rhs_rows(value, fast_nrow(xo), i_arg = NULL, value_arg, call)
#>  10. │             ├─base::withCallingHandlers(...)
#>  11. │             └─vctrs::vec_recycle(value[[j]], nrow)
#>  12. └─vctrs:::stop_recycle_incompatible_size(...)
#>  13.   └─vctrs:::stop_vctrs(...)
#>  14.     └─rlang::abort(message, class = c(class, "vctrs_error"), ..., call = call)
res3 = rnet_merge(rnet_x, rnet_y, segment_length = 10)
#> [1] "funs is NULL"
#> Joining with `by = join_by(identifier)`

library(rsgeo)

x <- geom_linestring(
  c(-3.19416, -3.19352, -3.19288),
  c(55.95524, 55.95535, 55.95546)
)

line_segmentize(x, 6) |> 
  expand_geoms()

library(rsgeo)

x <- geom_linestring(
  c(-3.19416, -3.19352, -3.19288) * 10,
  c(55.95524, 55.95535, 55.95546) * 10
)

line_segmentize(x, 6) |> 
  expand_geoms()

remotes::install_dev("rsgeo")