mevers / allhomes Goto Github PK

get_past_sales_data("Swinger Hill, ACT", 2020)
#[1] "https://www.allhomes.com.au/svc/locality/searchallbyname?st=ACT&n=swinger-hill"
## A tibble: 0 × 6
## … with 6 variables: division <chr>, state <chr>, postcode <chr>, value <int>, year <dbl>, data <lgl>
## ℹ Use `colnames()` to see all variable names

get_ah_division_ids("Swinger Hill, ACT")
#[1] "https://www.allhomes.com.au/svc/locality/searchallbyname?st=ACT&n=swinger-hill"
#      division state postcode value
#1 Swinger Hill   ACT     2606 18009

extract_past_sales_data("Swinger Hill", 18009, 2020)
# NULL

extract_past_sales_data("swinger-hill", 18009, 2020)
#[2022-07-26 17:23:13] Parsing data for swinger-hill, 2020
#            address bedrooms bathrooms ensuites garages carports contract_date transfer_date  list_date  price block_size
#1    8 Oldham Court        3         2       NA       2        0    20/01/2020            NA 19/12/2019 810000          0
#2   21 Jewell Close        2         1       NA       1        1    05/12/2020            NA 13/11/2020 592000          0
#3    7 Sulman Place        2         1       NA       2        0    07/11/2020            NA 15/10/2020 580000        190
#4    4 Hallen Close        2         1       NA       0        1    16/10/2020            NA 01/10/2020 540000        847
#...

get_past_sales_data("Arboretum, ACT", 2022)
#[2022-08-20 01:18:11] Looking up division ID for suburb='Arboretum, ACT'...
#[2022-08-20 01:18:11] URL: https://www.allhomes.com.au/svc/locality/searchallbyname?st=ACT&n=arboretum
#Error in `dplyr::mutate()`:
#! Problem while computing `data = purrr::pmap(list(.data$value, .data$year, .env$quiet), extract_past_sales_data)`.
#Caused by error in `.data$value`:
#! Column `value` not found in `.data`.
#Run `rlang::last_error()` to see where the error occurred.