Extract Part Of A String In R