удаления все после первого «обратной косой черты» в строке

Question

У меня есть вектор, как показано ниже

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

Я хочу, чтобы удалить все после, как только первый слэш встречается, как ниже

newvec <- c("abc","nmn","rer") 

Thank вы.

Мой первоначальный вектор, как показано ниже (только голова)

[1] "peoria ave\nste \npeoria"      [2] "wood dr\nphoenix"         
"central ave\nphoenix"        
[4] "southern ave\nphoenix"       [5] "happy valley rd\nste 
\nglendaleaz "    "the americana at brand\n americana way\nglendale" 

Здесь проблема заключается в мой оригинальный CSV-файл не содержит обратную косую черту, но когда я прочитал его обратную косую черту появляются. Исходный файл CSV, как показано ниже

[1] "peoria ave    [2] "wood dr 
    nste       nphoenix"  
    npeoria" 

Как вы можете видеть, на самом деле они разделены «ENTER», но когда я прочитал его в R с помощью read.csv() они заменяются на обратной косой черты.

Answer 1

другое решение:

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, "\\\\") должен выполнить эту работу.

, чтобы выбрать первый элемент [[1]][1] 2-й [[1]][2]