Ford Go Bike API

General Bikeshare Feed Specification (GBFS)

R gbfs

NBSA system.csv

install_github("ds-civic-data/gbfs")

library(gbfs)
library(tidyverse)
library(ggmap)

withr::with_dir(tempdir(), get_gbfs(city = "https://gbfs.fordgobike.com/gbfs/gbfs.json", feeds = "all", directory = "pdx_gbfs"))
withr::with_dir(tempdir(), list.files("pdx_gbfs"))

[1] "station_information.rds" "station_status.rds"      "system_alerts.rds"       "system_information.rds" 
[5] "system_regions.rds"     

station_information <- withr::with_dir(tempdir(), readRDS("pdx_gbfs/station_information.rds"))
head(station_information)

nrow(station_information)

[1] 302

station_information %>% ggplot(aes(x=lon, y=lat, color=region_id)) + geom_point()

bayarea <- get_map(location = "hayward")

Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=hayward&zoom=10&size=640x640&scale=2&maptype=terrain&language=en-EN&sensor=false
Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=hayward&sensor=false

ggmap(bayarea) +
  geom_point(data = station_information, aes(x = lon, y = lat,  color  = region_id, alpha = 0.1), size = 2, shape = 19)  # 21

station_status <- withr::with_dir(tempdir(), readRDS("pdx_gbfs/station_status.rds"))
head(station_status)

nrow(station_status)

[1] 604

system_alerts <- withr::with_dir(tempdir(), readRDS("pdx_gbfs/system_alerts.rds"))
head(system_alerts)

list()

nrow(system_alerts)

NULL

system_information <- withr::with_dir(tempdir(), readRDS("pdx_gbfs/system_information.rds"))
head(system_information)

nrow(system_information)

[1] 1

system_regions <- withr::with_dir(tempdir(), readRDS("pdx_gbfs/system_regions.rds"))
head(system_regions)

nrow(system_regions)

[1] 6