scripts/test_code/osm_clean_summary.R

In cyipt/cyipt: Cycling Infrastructure Prioritisation Toolkit

#summary of osm clean

#Get the unique combinations of characteristics

uni <- as.data.frame(osm[,c("roadtype","onewaysummary","junction","sidewalk","cycleway.left","lanes.psv.forward","lanes.forward","lanes.backward","lanes.psv.backward","cycleway.right")])
uni <- uni[,c("roadtype","onewaysummary","junction","sidewalk","cycleway.left","lanes.psv.forward","lanes.forward","lanes.backward","lanes.psv.backward","cycleway.right")]
uni <- uni[!duplicated(uni),]
uni$count <- NA
for(m in 1:nrow(uni)){
  uni$count[m] <- nrow(osm[osm$roadtype == uni$roadtype[m] &
                             osm$onewaysummary == uni$onewaysummary[m] &
                             osm$junction == uni$junction[m] &
                             osm$sidewalk == uni$sidewalk[m] &
                             osm$lanes.forward == uni$lanes.forward[m] &
                             osm$lanes.backward == uni$lanes.backward[m] &
                             osm$cycleway.left == uni$cycleway.left[m] &
                             osm$cycleway.right == uni$cycleway.right[m] &
                             osm$lanes.psv.forward == uni$lanes.psv.forward[m] &
                             osm$lanes.psv.backward == uni$lanes.psv.backward[m],])
}

write.csv(uni,"../cyipt/input-data/roadtypes5.csv")