バックスラッシュの前にすべての文字を保持するR

Question

10個のデータがリストされ、最初のバックスラッシュ後に発生するすべてのものを削除しようとしていますが、問題があります。私がしようとしています私は2016年11月3日

を維持したい

Nov. 3, 2016\n\t\t\t\n\t\t\t\n\t\t\t\tBO

：

例えば、ここでは最初の文字列である

gsub('\\\\\.*', '', data) 

をしかし、それはありますトリックをやっていない。

下記をRにコピーして貼り付けて、リストを再作成してください。

data <- c("Nov. 3, 2016\n\t\t\t\n\t\t\t\n\t\t\t\tBO", "July 21, 2016\n\t\t\t\n\t\t\t\n\t\t\t\tBO", 
     "May 3, 2016\n\t\t\t\n\t\t\t\n\t\t\t\tBO", "Feb. 24, 2016\n\t\t\t\n\t\t\t\n\t\t\t\tBO", 
     "Nov. 12, 2015\n\t\t\t\n\t\t\t\n\t\t\t\tBO", "July 24, 2015\n\t\t\t\n\t\t\t\n\t\t\t\tBO", 
     "May 12, 2015\n\t\t\t\n\t\t\t\n\t\t\t\tBO", "Feb. 25, 2015\n\t\t\t\n\t\t\t\n\t\t\t\tBO", 
     "Nov. 12, 2014\n\t\t\t\n\t\t\t\n\t\t\t\tBO", "July 24, 2014\n\t\t\t\n\t\t\t\n\t\t\t\tBO") 

ありがとうございました。

Answer 1

sub交換は一度だけ発生するので、関数はこの場合のために十分であろう。、

sub("\\n[\\s\\S]*", "", x) 

DEMO