rx_uppercase()
rx_uppercase(inverse = TRUE)
# create an expression
x <- rx_uppercase()
y <- rx_uppercase(inverse = TRUE)
# create input
string <- "Apple 1!"
# extract match
regmatches(string, gregexpr(x, string))
regmatches(string, gregexpr(y, string))
Run the code above in your browser using DataLab