R/getPostcode.R

In jon-mellon/mellonMisc: Lots of small things

#' @export getPostcode
getPostcode <- function(postcode) {
	# This function correctly formats a UK postcode
	end.code <- substr(postcode, start = nchar(postcode) - 2, stop = nchar(postcode))
	postcode.area <- gsub(end.code, "", postcode)
	postcode.area <- gsub("[[:space:]]", "", postcode.area)
	return(c(area = postcode.area, postcode = paste(postcode.area, end.code)))
}