data-raw/maps/src/nat_map_and_data_placeholders.R

In ropenscilabs/eechidna: Exploring Election and Census Highly Informative Data Nationally for Australia

nat_map22 <- data.frame(read_this = "Run this code: nat_map22 <- nat_map_download(2022)")
usethis::use_data(nat_map22, overwrite = T, compress = "xz")
nat_data22 <- data.frame(read_this = "Run this code: nat_data22 <- nat_data_download(2022)")
usethis::use_data(nat_data22, overwrite = T, compress = "xz")

nat_map19 <- data.frame(read_this = "Run this code: nat_map19 <- nat_map_download(2019)")
usethis::use_data(nat_map19, overwrite = T, compress = "xz")
nat_data19 <- data.frame(read_this = "Run this code: nat_data19 <- nat_data_download(2019)")
usethis::use_data(nat_data19, overwrite = T, compress = "xz")

nat_map16 <- data.frame(read_this = "Run this code: nat_map16 <- nat_map_download(2016)")
usethis::use_data(nat_map16, overwrite = T, compress = "xz")
nat_data16 <- data.frame(read_this = "Run this code: nat_data16 <- nat_data_download(2016)")
usethis::use_data(nat_data16, overwrite = T, compress = "xz")

nat_map13 <- data.frame(read_this = "Run this code: nat_map13 <- nat_map_download(2013)")
usethis::use_data(nat_map13, overwrite = T, compress = "xz")
nat_data13 <- data.frame(read_this = "Run this code: nat_data13 <- nat_data_download(2013)")
usethis::use_data(nat_data13, overwrite = T, compress = "xz")

nat_map10 <- data.frame(read_this = "Run this code: nat_map10 <- nat_map_download(2010)")
usethis::use_data(nat_map10, overwrite = T, compress = "xz")
nat_data10 <- data.frame(read_this = "Run this code: nat_data10 <- nat_data_download(2010)")
usethis::use_data(nat_data10, overwrite = T, compress = "xz")

nat_map07 <- data.frame(read_this = "Run this code: nat_map07 <- nat_map_download(2007)")
usethis::use_data(nat_map07, overwrite = T, compress = "xz")
nat_data07 <- data.frame(read_this = "Run this code: nat_data07 <- nat_data_download(2007)")
usethis::use_data(nat_data07, overwrite = T, compress = "xz")

nat_map04 <- data.frame(read_this = "Run this code: nat_map04 <- nat_map_download(2004)")
usethis::use_data(nat_map04, overwrite = T, compress = "xz")
nat_data04 <- data.frame(read_this = "Run this code: nat_data04 <- nat_data_download(2004)")
usethis::use_data(nat_data04, overwrite = T, compress = "xz")

nat_map01 <- data.frame(read_this = "Run this code: nat_map01 <- nat_map_download(2001)")
usethis::use_data(nat_map01, overwrite = T, compress = "xz")
nat_data01 <- data.frame(read_this = "Run this code: nat_data01 <- nat_data_download(2001)")
usethis::use_data(nat_data01, overwrite = T, compress = "xz")