From 6c51de54bc566a241fc0ceb1d25a1c1e2cdf81bf Mon Sep 17 00:00:00 2001
From: Frederik Vanrenterghem <frederik@vanrenterghem.biz>
Date: Thu, 9 Nov 2017 19:19:22 +0800
Subject: [PATCH] Comment out code that never worked.

---
 AU-taxstats.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/AU-taxstats.R b/AU-taxstats.R
index 8bbcb26..ed909fc 100644
--- a/AU-taxstats.R
+++ b/AU-taxstats.R
@@ -41,7 +41,8 @@ if(!file.exists("data/SA3_2016_AUST.shp"))
   unzip(zipfile = "data/1270055001_sa3_2016_aust_shape.zip", exdir = "data/")
 
 sa3 <- st_read(dsn = "data/", layer = "SA3_2016_AUST", stringsAsFactors = FALSE)
-taxstats.sa3 <- merge(x = taxstats, y = sa3, by.x = "Postcode", by.y = "POA_CODE16", all.y = TRUE)
+# This doesn't work
+#taxstats.sa3 <- merge(x = taxstats, y = sa3, by.x = "Postcode", by.y = "POA_CODE16", all.y = TRUE)
 
 # Create a matrix of intersecting postal codes and SA3's
 
-- 
2.39.5