nc-campaign-finance/process/R/utils-address.R

fixup_po_box <- function(x) {
  gsub(
    "P\\s*[.]*\\s*O\\s*[.]*\\s*BOX|POST OFFICE BOX",
    "PO BOX",
    x
  )
}

fixup_po_box_query <- function(x) {
  REGEXP_REPLACE(
    "P\\s*[.]*\\s*O\\s*[.]*\\s*BOX|POST OFFICE BOX",
    "PO BOX",
    x
  )
}