up small change to address standardization

kosukeimai · Jun 8, 2017 · bae2c7b · bae2c7b
1 parent b0a13e6
commit bae2c7b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/cleanAddressUSPS.R b/R/cleanAddressUSPS.R
@@ -17,7 +17,8 @@ cleanAddressUSPS <- function(address.field){
                             gsub(" avenue", " ave", address.field),
                      ifelse(grepl(" avn", address.field),
                             gsub(" avn", " ave", address.field),
-                            gsub(" av ", " ave ", address.field)))
+                            gsub(" av", " ave", address.field)))
+    address.field <- gsub(" avee", " ave", address.field)
     address.field <- gsub(" boulevard", " blvd", address.field)
     address.field <- gsub(" circle", " cir", address.field)
     address.field <- gsub(" court", " ct", address.field)