removing everything after first 'backslash' in a string

Question

I have a vector like below

vec <- c(\"abc\\edw\\www\", \"nmn\\ggg\", \"rer\\qqq\\fdf\"......)

I want to remove everything after as soon

Answer 1

another solution :

 sub("\\\\.*", "", x)