kidwellj/mapping_environmental_action
1
0
Fork 0
mirror of https://github.com/kidwellj/mapping_environmental_action.git synced 2024-10-31 23:42:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

added scenic areas data

Browse source
This commit is contained in:
Jeremy Kidwell 2019-02-04 22:04:16 +00:00
parent ab66b1a1cd
commit 2f704de4cb
1 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
mapping_draft.Rmd
View file

@ -887,6 +887,15 @@ unzip("data/National_Forest_Inventory_Woodland_Scotland_2017.zip", exdir = "data
forest_inventory <- st_read("data/National_Forest_Inventory_Woodland_Scotland_2017.shp") forest_inventory <- st_read("data/National_Forest_Inventory_Woodland_Scotland_2017.shp")
forest_inventory_sp <- readOGR("./data", "National_Forest_Inventory_Woodland_Scotland_2017") forest_inventory_sp <- readOGR("./data", "National_Forest_Inventory_Woodland_Scotland_2017")
# Download data for scenic areas
# https://opendata.arcgis.com/datasets/d7f6b987c7224a72a185ce012258d500_23.zip
# International Union for Conservation of Nature (IUCN), Category V Protected Landscapes
download.file("https://opendata.arcgis.com/datasets/d7f6b987c7224a72a185ce012258d500_23.zip", destfile = "data/ScenicAreas.zip")
unzip("data/ScenicAreas.zip", exdir = "data")
scenicareas <- st_read("data/ScenicAreas.shp")
scenicareas_sp <- readOGR("./data", "ScenicAreas")
# Set symmetrical CRS for analysis below # Set symmetrical CRS for analysis below
st_crs(sssi) <- 27700 st_crs(sssi) <- 27700
st_crs(ecs_sf) <- 27700 st_crs(ecs_sf) <- 27700