error handling code snippets in r