Add unit numbers and rename label to address_1 in mailing export

data-raw/update_owners.R

@@ -46,9 +46,11 @@ owners_raw <-
   mutate(
     # extract clean street address (before multiple spaces / unit suffix)
     label    = str_trim(str_extract(situs_address, "^\\d+\\s+\\S+\\s+\\S+")),
+    unit     = str_trim(str_extract(situs_address, "\\d+\\s*$")),
+    unit     = ifelse(is.na(unit), "", unit),
     location = paste0(label, ", Venice FL")
   ) |>
-  select(account_number, owner_1, owner_2, subdivision, homestead, label, location)
+  select(account_number, owner_1, owner_2, subdivision, homestead, label, unit, location)
 
 # join to geometry ----
 owners <- owners_raw |>