inst/doc/pct_to_abstr.R

In abstr: R Interface to the A/B Street Transport System Simulation Software

## ---- include=FALSE-----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = FALSE
)

## -----------------------------------------------------------------------------
#  ####
#  ####
#  #### AIM: Use PCT data to create scenario of change where commuting cycling levels increase and car journeys decrease which can be imported
#  ####      into A/B Street city simulation software. This method should be fully reproducible for all other pct_regions.
#  ####
#  ####

## -----------------------------------------------------------------------------
#  #### INSTALL PACKAGES ####
#  cran_pkgs = c("abstr", "pct", "osmextract", "sf", "tidyverse")
#  remotes::install_cran(cran_pkgs)
#  #### LOAD PACKAGES ####
#  library(abstr)
#  library(pct)
#  library(osmextract)
#  library(sf)
#  library(dplyr)

## -----------------------------------------------------------------------------
#  pct_regions$region_name

## -----------------------------------------------------------------------------
#  region_name = "devon"

## -----------------------------------------------------------------------------
#  lookup = pct::pct_regions_lookup
#  table(lookup$lad16nm[lookup$region_name == region_name])

## -----------------------------------------------------------------------------
#  lad_name = "Exeter"

## -----------------------------------------------------------------------------
#  ####    READ DATA ####
#  devon_zones = get_pct_zones(region = region_name, geography = "msoa") # get zone data
#  # filter for exeter
#  exeter_zones = devon_zones %>% filter(lad_name == lad_name) %>%
#    select(geo_code)
#  # get commute od data
#  exeter_commute_od = get_pct_lines(region = region_name, geography = "msoa") %>%
#    filter(lad_name1 == lad_name & lad_name2 == lad_name) # filter for exeter

## -----------------------------------------------------------------------------
#  exeter_commute_od = exeter_commute_od %>%
#    mutate(cycle_base = bicycle) %>%
#    mutate(walk_base = foot) %>%
#    mutate(transit_base = bus + train_tube) %>% # bunch of renaming -_-
#    mutate(drive_base = car_driver + car_passenger + motorbike + taxi_other) %>%
#    mutate(all_base = all) %>%
#    mutate(
#      # create new columns
#      pcycle_godutch_uptake = uptake_pct_godutch_2020(distance = rf_dist_km, gradient = rf_avslope_perc),
#      cycle_godutch_additional = pcycle_godutch_uptake * drive_base,
#      cycle_godutch = cycle_base + cycle_godutch_additional,
#      pcycle_godutch = cycle_godutch / all_base,
#      drive__godutch = drive_base - cycle_godutch_additional,
#      across(c(drive__godutch, cycle_godutch), round, 0),
#      all_go_dutch = drive__godutch + cycle_godutch + transit_base + walk_base
#    ) %>%
#    select(
#      # select variables for new df
#      geo_code1,
#      geo_code2,
#      cycle_base,
#      drive_base,
#      walk_base,
#      transit_base,
#      all_base,
#      all_go_dutch,
#      drive__godutch,
#      cycle_godutch,
#      cycle_godutch_additional,
#      pcycle_godutch
#    )

## -----------------------------------------------------------------------------
#  # sanity check: ensure total remains the same
#  # (this is not a dynamic model where population change is factored in)
#  identical(exeter_commute_od$all_base, exeter_commute_od$all_go_dutch)

## -----------------------------------------------------------------------------
#  ####    DOWNLOAD OSM BUILDING DATA ####
#  osm_polygons = osmextract::oe_read(
#    "https://download.geofabrik.de/europe/great-britain/england/devon-latest.osm.pbf",
#    # download osm buildings for region using geofabrik
#    layer = "multipolygons"
#  )
#  
#  building_types = c(
#    "yes",
#    "house",
#    "detached",
#    "residential",
#    "apartments",
#    "commercial",
#    "retail",
#    "school",
#    "industrial",
#    "semidetached_house",
#    "church",
#    "hangar",
#    "mobile_home",
#    "warehouse",
#    "office",
#    "college",
#    "university",
#    "public",
#    "garages",
#    "cabin",
#    "hospital",
#    "dormitory",
#    "hotel",
#    "service",
#    "parking",
#    "manufactured",
#    "civic",
#    "farm",
#    "manufacturing",
#    "floating_home",
#    "government",
#    "bungalow",
#    "transportation",
#    "motel",
#    "manufacture",
#    "kindergarten",
#    "house_boat",
#    "sports_centre"
#  )
#  osm_buildings  = osm_polygons %>%
#    filter(building %in% building_types) %>%
#    select(osm_way_id, name, building)
#  
#  osm_buildings_valid = osm_buildings[sf::st_is_valid(osm_buildings), ]
#  
#  exeter_osm_buildings_all = osm_buildings_valid[exeter_zones, ]

## -----------------------------------------------------------------------------
#  ####  JOIN OSM BUILDINGS WITH ZONE DATA ####
#  exeter_osm_buildings_all_joined = exeter_osm_buildings_all %>%
#    sf::st_join(exeter_zones)
#  
#  exeter_osm_buildings_sample = exeter_osm_buildings_all_joined %>%
#    filter(!is.na(osm_way_id))
#  
#  exeter_osm_buildings_tbl = exeter_osm_buildings_all %>%
#    filter(osm_way_id %in% exeter_osm_buildings_sample$osm_way_id)

## -----------------------------------------------------------------------------
#  set.seed(2021) # for reproducible builds
#  ####  LOGIC GATE ####
#  # Logic gate for go_dutch scenario of change, where cycling levels increase to a proportion reflecting the Netherlands.
#  # Switch to FALSE if you want census commuting OD
#  go_dutch = TRUE
#  if (go_dutch == TRUE) {
#    exeter_od = exeter_commute_od %>%
#      mutate(All = all_go_dutch) %>%
#      mutate(Bike = cycle_godutch) %>%
#      mutate(Transit = transit_base) %>%
#      mutate(Drive = drive_base) %>%
#      mutate(Walk = walk_base) %>%
#      select(geo_code1, geo_code2, All, Bike, Transit, Drive, Walk,geometry)
#  } else {
#    exeter_od = exeter_commute_od %>%
#      mutate(All = all_base) %>%
#      mutate(Bike = cycle_base) %>%
#      mutate(Drive = drive_base) %>%
#      mutate(Transit = transit_base) %>%
#      mutate(Walk = walk_base) %>%
#      select(geo_code1, geo_code2, All, Bike, Transit, Drive, Walk, geometry)
#  }

## -----------------------------------------------------------------------------
#  ####  GENERATE A/B STREET SCENARIO ####
#  output_sf = ab_scenario(
#    od = exeter_od,
#    zones = exeter_zones,
#    zones_d = NULL,
#    origin_buildings = exeter_osm_buildings_tbl,
#    destination_buildings = exeter_osm_buildings_tbl,
#    pop_var = 3,
#    time_fun = ab_time_normal,
#    output = "sf",
#    modes = c("Walk", "Bike", "Drive", "Transit")
#  )

## -----------------------------------------------------------------------------
#  #### SAVE JSON FILE ####
#  output_json = ab_json(output_sf, time_fun = ab_time_normal, scenario_name = "Go Dutch")
#  ab_save(output_json, f = "dutch.json")

## -----------------------------------------------------------------------------
#  # Upload the json file for future reference
#  piggyback::pb_upload("dutch.json")
#  piggyback::pb_download_url("dutch.json")