From bae2c7b67b41add494e2cb719e054943a2eafb4e Mon Sep 17 00:00:00 2001 From: Ben Fifield Date: Thu, 8 Jun 2017 17:34:19 -0400 Subject: [PATCH] up small change to address standardization --- R/cleanAddressUSPS.R | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/R/cleanAddressUSPS.R b/R/cleanAddressUSPS.R index 0082d8a..5c35ff4 100644 --- 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)