#install.packages("OpenStreetMap")
library(OpenStreetMap)
library(viridis)
# Read the shapefile obtained from WA opendata (SLIP)
shape <- readOGR(dsn = "data/", layer = "CurrentActiveSchoolsSemester12017_PublicDET_014")
#install.packages("OpenStreetMap")
library(OpenStreetMap)
library(viridis)
# Read the shapefile obtained from WA opendata (SLIP)
shape <- readOGR(dsn = "data/", layer = "CurrentActiveSchoolsSemester12017_PublicDET_014")