Brought get_contact up to R style guide standard.