`control flow` code snippets in r