e2,e3))pts=net%>%st_bbox()%>%st_as_sfc()%>%st_sample(10,type="random")%>%st_set_crs(3857)%>%st_cast('POINT')# Blend points into the network.# --> By default tolerance is set to Inf# --> Meaning that all points get blendedb1=st_network_blend(net,pts...