Recursive solution to properly update initialization var and function sequencing in R

Question

I have a dataset that contains network distances along a river network. For sake of simplicity, I have 5 river segments, segments 1-5. Each segment has 5 nodes on it (inde