## Reload data from SQL pull
ZipsByStore <- loadFromJesus("~/git/orch/data/map/ZipsByStore-20140408_2149-491006x10.RDS")



# ErrdZipCodes <- ZipsByStore[is.na(zipcode) | zipcode == 0 | grepl("\\.", as.character(zipcode))]
ErrdZipCodes <- ZipsByStore[ !(!is.na(latitude) & !is.na(longitude) & !(zipcode=='00000') )]
Zips <- ZipsByStore[ (!is.na(latitude) & !is.na(longitude) & !(zipcode=='00000') )]


ZipsByStore <- ZipsByStore[! (is.na(zipcode) | zipcode == 0 | grepl("\\.", as.character(zipcode))) ]