# NOT RUN {
data(flowlines)
l <- flowlines[2:5,]
nl <- routes_fast
nrow(l)
nrow(nl)
l <- l[!is_linepoint(l),]
names(l)
names(routes_fast)
l_newgeom <- update_line_geometry(l, nl)
plot(l, lwd = l$All / mean(l$All))
plot(l_newgeom, lwd = l$All / mean(l$All))
names(l_newgeom)
# }
Run the code above in your browser using DataLab