diff --git a/R/app_server.R b/R/app_server.R index 4bf366a..8025182 100644 --- a/R/app_server.R +++ b/R/app_server.R @@ -234,6 +234,7 @@ create_server <- function(input, output, session) { lng = ~longitude, popup = ~paste0( "", address, "
", + "Owner: ", owner_1, "
", "Price: ", price_fmt, "
", "Sq Ft: ", sqft, "
", "$/Sq Ft: ", ppsf_fmt diff --git a/data-raw/update_listings.R b/data-raw/update_listings.R index 3d37460..0a7c89e 100644 --- a/data-raw/update_listings.R +++ b/data-raw/update_listings.R @@ -64,7 +64,7 @@ owners_coords <- owners_sf |> street_raw = trimws(sub("^\\d+\\s+(.*),.*$", "\\1", location)), match_key = paste(house_num, toupper(street_raw)) ) |> - select(match_key, geom) |> + select(match_key, owner_1, geom) |> distinct(match_key, .keep_all = TRUE) # Extract house number + street from RentCast address @@ -94,6 +94,7 @@ listings <- listings |> transmute( listed_date = as.Date(listedDate), address = formattedAddress, + owner_1, sqft = as.numeric(squareFootage), price = as.numeric(price), price_per_sqft = round(price / sqft, 0), diff --git a/data/listings.rds b/data/listings.rds index e97d3c4..522081b 100644 Binary files a/data/listings.rds and b/data/listings.rds differ