substr code snippets in r

remove text after character in r