password code snippets in r