pct/buildmaster.R at master · audev/pct · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
source("set-up.R")
library(knitr)


la_all <- c("Oxfordshire", "Shropshire")

for(i in la_all){
  # What geographic level are we working at (cua or regional)
  geo_level <- "region"
  isolated <- TRUE
  region <- i
  print(i)
  knitr::knit2html(
    input = "load.Rmd",
    output = file.path("pct-data/", region, "/model-output.html"),
    envir = globalenv()
  )
}

regions <- geojson_read("pct-bigdata/national/regions.geojson", what = "sp")
regions$Region

regions$Region[1:10]
dput(as.character(regions$Region[2:4]))
#
#
#
# las <- readOGR(dsn = "pct-bigdata/national/cuas-mf.geojson", layer = "OGRGeoJSON")
# las_names <- las$CTYUA12NM
# las_names <- las_names[order(las_names)]
# las_names <- as.character(las_names)
# head(las_names)
# dput(las_names[1:4])