added wilderness specific script, extra poi

This commit is contained in:
Jeremy Kidwell 2019-03-27 12:23:09 +00:00
parent 659e32e38b
commit 16ed7fcd9b

View file

@ -378,7 +378,7 @@ coordinates(poi_pubs) <- c("x", "y")
proj4string(poi_pubs) <- proj4string(admin_lev1)
# filter out non-Scottish pubs
poi_pubs <- poi_pubs[!is.na(over(poi_pubs, geometry(admin_lev1))),]
poi_pubs_sf <- st_as_sf(poi_pubs_wgs, coords = c("x", "y"), crs=paste0("+init=epsg:",27700))
poi_pubs_sf <- st_as_sf(poi_pubs, coords = c("x", "y"), crs=paste0("+init=epsg:",27700))
```
```{r wilderness_data_prep}