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)

Answer 2

vec <- c("abc\\edw\\www", "nmn\\ggg", "rer\\qqq\\fdf")
sub("([^\\\\])\\\\.*","\\1", vec)
[1] "abc" "nmn" "rer"

Answer 3

strssplit(vec, "\\\\") should do the job.

TO select the first element [[1]][1] 2nd [[1]][2]