Add content to test computer setup

[Robinlovelace]

This code should work, resulting in the output below:

library(stats19)
#> Data provided under OGL v3.0. Cite the source and link to:
#> www.nationalarchives.gov.uk/doc/open-government-licence/version/3/
library(tidyverse)
library(tmap) # installed alongside mapview
crashes = get_stats19(year = 2017, type = "ac")
#> Files identified: dftRoadSafetyData_Accidents_2017.zip
#>    http://data.dft.gov.uk.s3.amazonaws.com/road-accidents-safety-data/dftRoadSafetyData_Accidents_2017.zip
#> Attempt downloading from:
#> Data saved at /tmp/RtmpW7BLTK/dftRoadSafetyData_Accidents_2017/Acc.csv
#> Reading in:
#> /tmp/RtmpW7BLTK/dftRoadSafetyData_Accidents_2017/Acc.csv
crashes_iow = crashes %>% 
  filter(local_authority_district == "Isle of Wight") %>% 
  format_sf()
#> 0 rows removed with no coordinates
  
# basic plot
plot(crashes_iow)
#> Warning: plotting the first 9 out of 30 attributes; use max.plot = 30 to
#> plot all

^{Created on 2019-10-03 by the reprex package (v0.3.0)}

[Robinlovelace]

See here: https://docs.ropensci.org/stats19/articles/stats19-training-setup.html