From 2ca90068f7db1c2cc6c8e4fd2f4f231e4a35c1c7 Mon Sep 17 00:00:00 2001
From: Ben Anderson <dataknut@icloud.com>
Date: Fri, 3 Dec 2021 15:20:43 +0000
Subject: [PATCH] amended makefile for clarity
---
itsTheCatsStupid/makeFile.R | 12 ++++++++----
1 file changed, 8 insertions(+), 4 deletions(-)
diff --git a/itsTheCatsStupid/makeFile.R b/itsTheCatsStupid/makeFile.R
index 04d4462..4de21d6 100644
--- a/itsTheCatsStupid/makeFile.R
+++ b/itsTheCatsStupid/makeFile.R
@@ -8,17 +8,21 @@ makeReport <- function(f){
)
}
-# >> run report ----
+# Run report ----
+
+#> set data path ----
+dp <- "~/Dropbox/data/"
+
+#> define yaml ----
rmdFile <- "itsTheCatsStupid" # not the full path
title = "#backOfaFagPacket: Its the Cats, stupid"
subtitle = "Does cat ownership correlate with home energy demand?"
authors = "Ben Anderson"
-# load the postcode data here (slow)
-dp <- "~/Dropbox/data/"
+#> load the postcode data here (slow)
postcodes_dt <- data.table::fread(paste0(dp, "UK_postcodes/PCD_OA_LSOA_MSOA_LAD_AUG20_UK_LU.csv.gz"))
postcodes_dt[, pcd_sector := tstrsplit(pcds, " ", keep = c(1))]
lsoa_DT <- postcodes_dt[, .(nPostcodes = .N), keyby = .(lsoa11cd, pcd_sector, ladnm, ladnmw)]
-# re-run report here
+#> re-run report here
makeReport(rmdFile)
\ No newline at end of file
--
GitLab