rx_word()
# create an expression
x <- rx_word()
# create inputs
string1 <- "foo_bar"
string2 <- "foo-bar"
# extract matches
regmatches(string1, regexpr(x, string1))
regmatches(string2, regexpr(x, string2)) # doesn't match -
Run the code above in your browser using DataLab