Soundex codes

Dear List:

Has anyone done any work developing functions for producing Soundex
codes in R? RSiteSearch('soundex') did not yield any results or did my
google searches.

Harold