http://muawia.com/do-more-with-r-quick-lookup-tables-using-named-vectors/