unzip(zipfile = "data/1270055001_sa3_2016_aust_shape.zip", exdir = "data/")
sa3 <- st_read(dsn = "data/", layer = "SA3_2016_AUST", stringsAsFactors = FALSE)
unzip(zipfile = "data/1270055001_sa3_2016_aust_shape.zip", exdir = "data/")
sa3 <- st_read(dsn = "data/", layer = "SA3_2016_AUST", stringsAsFactors = FALSE)