stringr-str-extract-in-r