Add owner name to listings map popup

Join owner_1 from owners.rds to listings via address match key.
Display in marker popup above price on the Listings tab map.

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),