s <- 'Lorem ipsum dolor sit amet, consectetur adipisicing elit.'
if (stri_install_check(silent=TRUE))
stri_extract_last('XaaaaX', regex=c('\\p{Ll}', '\\p{Ll}+', '\\p{Ll}{2,3}', '\\p{Ll}{2,3}?'))
if (stri_install_check(silent=TRUE))
stri_extract_last('Bartolini', coll=letters[1:3])
if (stri_install_check(silent=TRUE))
stri_extract_last(s, charclass='\\p{Zs}')
Run the code above in your browser using DataLab