R Function: find and replace for multiple patterns and replacements