Read zip code database

readZipCodeDatabase.r

repos <- "http://cran.us.r-project.org"
if (!require(data.table)) {install.packages("data.table", dependencies=TRUE, repos=repos)}
require(data.table)
url <- "http://www.unitedstateszipcodes.org/zip_code_database.csv"
zip_code_database <- fread(url,
                           colClasses=c(rep("character", 9),
                                        rep("numeric", 2),
                                        rep("character", 2),
                                        rep("integer", 2),
                                        rep("character", 1)),
                           stringsAsFactors=FALSE)
rm(repos)