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