nesting code snippets in r