保留反斜杠前的所有字符 R

Question

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

例如，这里是第一个字符串：

Nov. 3, 2016\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")

感谢您的帮助。

Answer 1

sub 函数对于这种情况就足够了，因为替换只会发生一次。，

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

DEMO