保留反斜杠前的所有字符 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

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

Keep All Characters Before Backslash R

r

list

char

gsub