convert.underscore. Snippet from foreign::read.dta() by Thomas Lumley and R-core members.