From ee84abde3ee36e120df723c6591a679adf51d541 Mon Sep 17 00:00:00 2001
From: Ben Anderson <dataknut@icloud.com>
Date: Mon, 6 Dec 2021 23:19:20 +0000
Subject: [PATCH] removed postcode code
---
playingWithPostcodes.R | 16 ----------------
1 file changed, 16 deletions(-)
delete mode 100644 playingWithPostcodes.R
diff --git a/playingWithPostcodes.R b/playingWithPostcodes.R
deleted file mode 100644
index fd1a505..0000000
--- a/playingWithPostcodes.R
+++ /dev/null
@@ -1,16 +0,0 @@
-postcodes <- data.table::fread("~/Dropbox/data/UK_postcodes/NSPL_AUG_2020_UK/Data/NSPL_AUG_2020_UK.csv.gz")
-
-postcodes[, pcd_sector := data.table::tstrsplit(pcds, " ", keep = c(1))]
-pc_sectors_dt <- postcodes[, .(nPostcodes = .N), keyby = .(pcd_sector, rgn)]
-pc_sectors_dt[, GOR10CD := rgn]
-
-
-region_codes <- readxl::read_xlsx("~/Dropbox/data/UK_postcodes/NSPL_AUG_2020_UK/Documents/Region names and codes EN as at 12_10 (GOR).xlsx")
-region_code_dt <- data.table::as.data.table(region_codes)
-
-setkey(region_code_dt, GOR10CD)
-setkey(pc_sectors_dt, GOR10CD)
-
-dt <- region_code_dt[pc_sectors_dt]
-
-data.table::fwrite(dt, file = here::here("data", "postcode_sectors_dt.csv"))
--
GitLab