address <- c("SE Kellogg", "SE Kellogg Court")
gsub("\\bSE Kellogg\\b(?!\\s+Court\\b)", "SE Kellogg Court", address, perl=TRUE)
gsub("\\b(SE Kellogg)\\b(?!\\s+Court\\b)", "\\1 Court", address, perl=TRUE)
YWRkcmVzcyA8LSBjKCJTRSBLZWxsb2dnIiwgIlNFIEtlbGxvZ2cgQ291cnQiKQpnc3ViKCJcXGJTRSBLZWxsb2dnXFxiKD8hXFxzK0NvdXJ0XFxiKSIsICJTRSBLZWxsb2dnIENvdXJ0IiwgYWRkcmVzcywgcGVybD1UUlVFKQpnc3ViKCJcXGIoU0UgS2VsbG9nZylcXGIoPyFcXHMrQ291cnRcXGIpIiwgIlxcMSBDb3VydCIsIGFkZHJlc3MsIHBlcmw9VFJVRSk=