# NOT RUN {
rx_lowercase()
rx_lowercase(inverse = TRUE)
# create an expression
x <- rx_lowercase()
y <- rx_lowercase(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