`if-else` code snippets in r