## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  out.width = "50%"
)

## ----eval=FALSE---------------------------------------------------------------
# source("https://git.io/JeaZH")

## ----eval=FALSE---------------------------------------------------------------
# install.packages("remotes")
# pkgs = c(
#   "pct",         # package for getting travel data in the UK
#   "sf",          # spatial data package
#   "stats19",     # downloads and formats open stats19 crash data
#   "stplanr",     # for working with origin-destination and route data
#   "tidyverse",   # a package for user friendly data science
#   "tmap"         # for making maps
# )
# remotes::install_cran(pkgs)
# # remotes::install_github("ITSLeeds/pct")

## ----message=FALSE, eval=FALSE------------------------------------------------
# library(stats19)
# library(tidyverse)
# library(tmap) # installed alongside mapview
# crashes = get_stats19(year = 2022, type = "ac")
# crashes_iow = crashes %>%
#   filter(local_authority_district == "Isle of Wight") %>%
#   format_sf()
# 
# # basic plot
# plot(crashes_iow)