Get distance from a list of zipcodes

zipcodesDistances.R

returnDistanceFromVector = function(origin, listOfZipcodes){
	library(geosphere)
	library(ggmap)
	
	originCoord = geocode(as.character(origin))
	
	result = data.frame(Zipcode=numeric(), distance= numeric())

	for(i in 1:length(listOfZipcodes))
	{	
		if ( !is.na(listOfZipcodes[i])) {
			destCoord = geocode(as.character(listOfZipcodes[i]))
			distance = distm (originCoord, destCoord, fun = distHaversine)[1,1]
			result= rbind(result, c(distance, listOfZipcodes[i]))
		}
		else {
			distance= NA
			result= rbind(result, c(distance, listOfZipcodes[i]))
		}
		names(result) <- c("distance", "zipcode")

	}
	
	return(result)
}