# \donttest{
# reading the data
data(mtl_network)
data(bike_accidents)
# aggregating points within a 5 metres radius
bike_accidents$weight <- 1
agg_points <- aggregate_points(bike_accidents, 5)
mtl_network$LineID <- 1:nrow(mtl_network)
# snapping point to lines
snapped_points <- snapPointsToLines2(agg_points,
mtl_network,
"LineID"
)
# splitting lines
new_lines <- split_lines_at_vertex(mtl_network, snapped_points,
snapped_points$nearest_line_id, 1)
# }
Run the code above in your browser using DataLab