pattern-matching code snippets in r