kidwellj/mapping_environmental_action
1
0
Fork 0
mirror of https://github.com/kidwellj/mapping_environmental_action.git synced 2024-11-01 07:52:21 +00:00
Code Issues Packages Projects Releases Wiki Activity

added files

Browse source
This commit is contained in:
Jeremy Kidwell 2020-03-26 18:11:34 +00:00
parent 099bed2021 89c9a2a5a4
commit d83f3b1f43
3 changed files with 28 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

0
data/poi_2015_12_scot06340459.csv Executable file → Normal file
View file

Can't render this file because it is too large.

25
mapping_draft-hpc_optimised.Rmd
View file

@ -107,6 +107,7 @@ if (dir.exists("derivedData") == FALSE) {
dir.create("derivedData") dir.create("derivedData")
} }
<<<<<<< HEAD
# # Setup PostGIS database connection # # Setup PostGIS database connection
# dw <- config::get("datawarehouse") # dw <- config::get("datawarehouse")
# #
@ -118,6 +119,19 @@ if (dir.exists("derivedData") == FALSE) {
# host = dw$server, # host = dw$server,
# port = 5432 # port = 5432
# ) # )
=======
# Setup PostGIS database connection
dw <- config::get("datawarehouse")
con <- dbConnect(odbc::odbc(),
driver = dw$driver,
database = dw$database,
uid = dw$uid,
pwd = dw$pwd,
host = dw$server,
port = 5432
)
>>>>>>> 89c9a2a5a4542de5584daa0304a53008a779ded8
# Define Coordinate Reference Systems (CRS) for later use # Define Coordinate Reference Systems (CRS) for later use
# Note: I've used British National Grid (27000) in this paper, but have found that # Note: I've used British National Grid (27000) in this paper, but have found that
@ -212,9 +226,14 @@ download.file("https://borders.ukdataservice.ac.uk/ukborders/easy_download/prebu
unzip("data/Scotland_ca_2010.zip", exdir = "data") unzip("data/Scotland_ca_2010.zip", exdir = "data")
} }
admin_lev1 <- st_read("data/scotland_ca_2010.shp") %>% st_transform(paste0("+init=epsg:",27700)) admin_lev1 <- st_read("data/scotland_ca_2010.shp") %>% st_transform(paste0("+init=epsg:",27700))
<<<<<<< HEAD
# Write to SQL database # Write to SQL database
# st_write(admin_lev1, dsn = con, layer = "admin_lev1", # st_write(admin_lev1, dsn = con, layer = "admin_lev1",
# overwrite = FALSE, append = FALSE) # overwrite = FALSE, append = FALSE)
=======
st_write(admin_lev1, dsn = con, layer = "admin_lev1",
overwrite = FALSE, append = FALSE)
>>>>>>> 89c9a2a5a4542de5584daa0304a53008a779ded8
# read in polygon for intermediate admin boundary layers # read in polygon for intermediate admin boundary layers
if (file.exists("data/scotland_parlcon_2011.shp") == FALSE) { if (file.exists("data/scotland_parlcon_2011.shp") == FALSE) {
@ -282,9 +301,15 @@ dtas <- st_read("data/community-dev-trusts-2.6.geojson") %>% st_transform(paste0
# coordinates(permaculture) <- c("X", "Y") # coordinates(permaculture) <- c("X", "Y")
# proj4string(permaculture) <- CRS("+init=epsg:27700") # proj4string(permaculture) <- CRS("+init=epsg:27700")
# permaculture_sf <- st_as_sf(permaculture, coords = c("X", "Y"), crs=27700) # permaculture_sf <- st_as_sf(permaculture, coords = c("X", "Y"), crs=27700)
<<<<<<< HEAD
permaculture <- st_read("data/permaculture_scot-0.8.geojson") %>% st_transform(paste0("+init=epsg:",27700)) permaculture <- st_read("data/permaculture_scot-0.8.geojson") %>% st_transform(paste0("+init=epsg:",27700))
=======
permaculture <- st_read("data/permaculture_scot-0.8.geojson") %>% st_transform(paste0("+init=epsg:",27700))
>>>>>>> 89c9a2a5a4542de5584daa0304a53008a779ded8
# subset point datasets for inset maps below # subset point datasets for inset maps below
# commenting out deprecated naming convention # commenting out deprecated naming convention
# ecs_sf_centralbelt <- st_intersection(ecs_sf, centralbelt_region) # ecs_sf_centralbelt <- st_intersection(ecs_sf, centralbelt_region)

3
renv/.gitignore vendored Normal file
View file

@ -0,0 +1,3 @@
library/
python/
staging/