gsub code snippets in r

remove text after character in r