将所有字符保留在反斜杠R之前

我有一个名为data的10个chr的列表，我正试图删除第一个反斜杠后出现的所有内容，但我遇到了困难

例如，以下是第一个字符串：

2016年11月3日\n\t\t\t\n\t\t\t\n\t\t\t\tBO

我只想保留2016年11月3日

我正在努力：

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")

---

data
sub
功能在这种情况下就足够了，因为更换只会发生一次

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

您在编辑之前发布的这一行也非常有效，sub（“\\n.*”，“”，data）