The example presented in the function transit_network_to_sf() return some stops with wrong spatial coordinates.
library(r5r)
library(sf)
library(mapview)
library(sfheaders)
# build transport network
path <- system.file("extdata/poa", package = "r5r")
r5r_core <- setup_r5(data_path = path)
# extract transit network from r5r_core
transit_net <- transit_network_to_sf(r5r_core)
# check on the map
mapview(transit_net$stops)
# check coordinates
a <- sfheaders::sf_to_df(transit_net$stops)
a <- a[order(a$x),]
tail(a)
> sfg_id point_id x y
> 3756 3756 3756 -1 -1
> 3856 3856 3856 -1 -1
> 3864 3864 3864 -1 -1
> 3875 3875 3875 -1 -1
> 3885 3885 3885 -1 -1
> 3895 3895 3895 -1 -1
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4