load-all-bikedata.R

# download and store the data
library (osmdata)
library (dodgr0
library (bikedata)
bikedir <- "/data/data/bikes"
bikedb <- file.path (bikedir, "all_bike_data.sqlite")
cities <- bike_demographic_data ()$city

dl <- function ()
{
    for (ci in cities)
    {
        message ("----------", ci, "----------")
        data_dir <- file.path (bikedir, ci)
        n <- dl_bikedata (data_dir = data_dir, city = ci)
        n <- store_bikedata (bikedb = bikedb, data_dir = data_dir)
    }
    index_bikedata_db (bikedb = bikedb)
}

# Calculate distance and trip matrices:
mats <- function ()
{
    tripmats <- distmats <- list ()
    for (ci in cities)
    {
        tm <- bike_tripmat (bikedb = bikedb, city = ci,
                            standardise = TRUE, quiet = FALSE)
        dm <- bike_distmat (bikedb = bikedb, city = ci, quiet = FALSE)
        tdm <- match_matrices (tm, dm)
        tripmats [[ci]] <- tdm$trip
        distmats [[ci]] <- tdm$dist
    }
    save (tripmats, file = paste0 (bikedir, "tripmats.rda"))
    save (distmats, file = paste0 (bikedir, "distmats.rda"))
}

dl ()
mats ()