get_dwell_table.R

# This code provides a way to download table(s) from the Estimate Dwelling Stock
# release, which has not (yet) been added to the ABS Time Series Directory
# and therefore cannot be loaded by readabs::read_abs()

get_dwell_table <- function(table_no = 1, path = tempdir()) {
  table_no <- match.arg(as.character(table_no), as.character(1:9))
  filename <- paste0("87010", table_no, ".xlsx")
  file <- readabs::download_abs_data_cube("estimated-dwelling-stock",
                                  filename,
                                  path = path)
  
  readabs::read_abs_local(filenames = file)
}

# Get a single table 
get_dwell_table(1)

# Get all tables
purrr::map_dfr(1:9,
               get_dwell_table)