roperators (version 1.3.14)

logicals: Logical operators

Description

These are some convienience functions, such as a not-in, and xor operator.

This takes two arguments just like grepl - a string and a pattern. TRUE if grepl(pattern, x, ignore.case=TRUE) would be TRUE

This takes two arguments just like grepl - a string and a pattern. TRUE if grepl(pattern, x, ignore.case=FALSE, perl=TRUE) would be TRUE. It's like %like% from data.table (but slower, preferably use data.table).

Usage

x %ni% y
x %xor% y
x %aon% y
x %rlike% pattern
x %perl% pattern

Arguments

x

a character vector

y

a vector

pattern

a single character expression

Author

Ben Wiseman,

Examples

 #### Not in ####

 "z" %ni%  c("a", "b", "c")
 #  TRUE

 #### Exclusive or  ####

 TRUE %xor% TRUE
 # FALSE

 FALSE %xor% FALSE
 # FALSE

 FALSE %xor% TRUE
 # TRUE

 #### All-or-nothing ####

 TRUE %aon% TRUE
 # TRUE

 FALSE %aon% FALSE
 # TRUE

 FALSE %aon% TRUE
 # FALSE

# Apply a regular expression/substitution to x:

 x <- c("foo", "bar", "dOe", "rei", "mei", "obo")

 # where x has an O

 x[x %rlike% "O"]

 # [1] "foo" "dOe" "obo"

 # find x where middle letter is "O"

 x[x %rlike% "[a-z]O[a-z]"]

 # will print [1] "foo" "dOe"

# Apply a regular expression/substitution to x:

 x <- c("foo", "bar", "dOe", "rei", "mei", "obo")

 # find x where middle letter is upper-case "O"

 x[x %perl% "[a-z]O[a-z]"]

 # will print [1] "dOe"