regular-expression code snippets in r