data(Ballinderry)
riverlayout <- RiverLayout(B.river$River,B.river$Length,
B.river$Parent,B.river$Position,
B.river$Distance, direction = -1)
RiverDraw(riverlayout)
RiverDirection(riverlayout, loc = c(0.8, 0.3), arw.length = 0.03, lbl.cex = 0.8)
# Or use mouse to allocate the flow direction sign. Try the command below.
# RiverDirection(riverlayout, arw.length = 0.03, lbl.cex = 0.8)
Run the code above in your browser using DataLab