Clean cycleway widths (use est_widths when available and width otherwise)

Clean cycleway widths (use est_widths when available and width otherwise)

Usage

clean_widths(osm)

Arguments

osm

An sf object with the road network

Value

An sf object with the cleaned cycleway widths in the column width

Examples

osm = osm_edinburgh
osm$width
#>   [1] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA   
#>  [13] NA    NA    NA    NA    NA    NA    NA    NA    NA    "3"   NA    "4.5"
#>  [25] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA   
#>  [37] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA   
#>  [49] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA   
#>  [61] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    "1"  
#>  [73] NA    NA    NA    NA    NA    NA    NA    "3"   "2.5" NA    "20"  NA   
#>  [85] NA    NA    "2"   NA    "2.5" NA    "2.5" "4"   NA    NA    NA    NA   
#>  [97] NA    NA    "1"   NA    NA    NA    NA    NA    NA    NA    NA    NA   
#> [109] NA    NA    NA    "4"   NA    "4"   NA    NA    NA    NA    NA    NA   
#> [121] NA    NA    "3"  
osm$est_width = NA
osm$est_width[1:3] = 2
osm_cleaned = clean_widths(osm)
osm$width
#>   [1] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA   
#>  [13] NA    NA    NA    NA    NA    NA    NA    NA    NA    "3"   NA    "4.5"
#>  [25] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA   
#>  [37] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA   
#>  [49] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA   
#>  [61] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    "1"  
#>  [73] NA    NA    NA    NA    NA    NA    NA    "3"   "2.5" NA    "20"  NA   
#>  [85] NA    NA    "2"   NA    "2.5" NA    "2.5" "4"   NA    NA    NA    NA   
#>  [97] NA    NA    "1"   NA    NA    NA    NA    NA    NA    NA    NA    NA   
#> [109] NA    NA    NA    "4"   NA    "4"   NA    NA    NA    NA    NA    NA   
#> [121] NA    NA    "3"  
osm_cleaned$width
#>   [1] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA   
#>  [13] NA    NA    NA    NA    NA    NA    NA    NA    NA    "3"   NA    "4.5"
#>  [25] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA   
#>  [37] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA   
#>  [49] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA   
#>  [61] NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    NA    "1"  
#>  [73] NA    NA    NA    NA    NA    NA    NA    "3"   "2.5" NA    "20"  NA   
#>  [85] NA    NA    "2"   NA    "2.5" NA    "2.5" "2"   NA    "1"   NA    NA   
#>  [97] NA    NA    "1"   NA    NA    NA    NA    NA    NA    NA    NA    "2"  
#> [109] NA    NA    NA    "2"   NA    "2"   NA    NA    NA    NA    NA    NA   
#> [121] NA    NA    "3"