Check for Braiding in a River Network

Detects braiding (multiple flow channels between two locations) within a river network object. Braiding can either be checked for in the route between two segments, or in the river network as a whole.

checkbraided(rivers, startseg = NULL, endseg = NULL, progress = TRUE)

Arguments

rivers	The river network object to check.
startseg	Starting segment of a route to investigate. If this and endseg are NULL, the full river network will be checked.
endseg	Starting segment of a route to investigate. If this and startseg are NULL, the full river network will be checked.
progress	Whether to show the progress bar. Defaults to TRUE.

Note

This function is called within cleanup, which is recommended in most cases.

Examples

data(Gulk)
plot(x=Gulk)
checkbraided(rivers=Gulk)
#> 
  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |==================                                                    |  25%
  |                                                                            
  |==========================                                            |  38%
  |                                                                            
  |===================================                                   |  50%
  |                                                                            
  |============================================                          |  62%
  |                                                                            
  |====================================================                  |  75%
  |                                                                            
  |=============================================================         |  88%
  |                                                                            
  |======================================================================| 100%
#>  No braiding detected in river network.

data(KilleyW)
plot(x=KilleyW)
checkbraided(rivers=KilleyW)
#> 
  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |======================================================================| 100%
#>  Braiding detected in river network.  Distance measurements may be inaccurate.

Kenai3.subset <- trimriver(trimto=c(22,2,70,30,15,98,96,89,52,3), rivers=Kenai3)
#> Note: any point data already using the input river network must be re-transformed to river coordinates using xy2segvert() or ptshp2segvert().
plot(x=Kenai3.subset)

checkbraided(startseg=1, endseg=7, rivers=Kenai3.subset)
#> No braiding detected between segments.
checkbraided(startseg=1, endseg=5, rivers=Kenai3.subset)
#> Braiding detected between segments.  Distance measurements may be inaccurate.