base code snippets in r