scripts/test_code/find-junctions.R
In cyipt/cyipt: Cycling Infrastructure Prioritisation Toolkit
# Aim: find junctions in Bristol
library(sf)
library(dplyr)
osm_data = readRDS("../example-data/bristol/osm-all-highways.Rds")
ways = osm_data$osm_lines
points = osm_data$osm_points
jp = filter(points, !is.na(junction))
jw = filter(ways, !is.na(junction))
roundabouts = filter(jw, junction == "roundabout")
nrow(roundabouts)
library(tmap)
tmap_mode("view")
qtm(roundabouts)
cyipt/cyipt documentation built on Aug. 16, 2020, 10:24 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
# Aim: find junctions in Bristol
library(sf)
library(dplyr)
osm_data = readRDS("../example-data/bristol/osm-all-highways.Rds")
ways = osm_data$osm_lines
points = osm_data$osm_points
jp = filter(points, !is.na(junction))
jw = filter(ways, !is.na(junction))
roundabouts = filter(jw, junction == "roundabout")
nrow(roundabouts)
library(tmap)
tmap_mode("view")
qtm(roundabouts)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.