`logical operators` code snippets in r