demo/zillow.R

In rvest: Easily Harvest (Scrape) Web Pages

# Inspired by https://github.com/notesofdabbler
library(rvest)
library(tidyr)

page <- read_html("http://www.zillow.com/homes/for_sale/Greenwood-IN/fsba,fsbo,fore,cmsn_lt/house_type/52333_rid/39.638414,-86.011362,39.550714,-86.179419_rect/12_zm/0_mmm/")

houses <- page |>
  html_elements(".photo-cards li article")

z_id <- houses |> html_attr("id")

address <- houses |>
  html_element(".zsg-photo-card-address") |>
  html_text()

price <- houses |>
  html_element(".zsg-photo-card-price") |>
  html_text() |>
  readr::parse_number()

params <- houses |>
  html_element(".zsg-photo-card-info") |>
  html_text() |>
  strsplit("\u00b7")

beds <- params |> purrr::map_chr(1) |> readr::parse_number()
baths <- params |> purrr::map_chr(2) |> readr::parse_number()
house_area <- params |> purrr::map_chr(3) |> readr::parse_number()