Merge all edges between points using sfnetwork in r

Question

I have a rooted tree with spatially explicit edges (ln_sfnetwork) with additional edges created by adding a point layer (pt).

I would like to gi