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

时间:2016-10-15 04:25:07

标签: r list char gsub

我有一个10个chr被叫数据的列表,我试图删除第一个反斜杠后发生但发生困难的所有内容。

例如,这是第一个字符串:

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

感谢您的帮助。

1 个答案:

答案 0 :(得分:2)

sub("\\n[\\s\\S]*", "", x) 函数对于这种情况就足够了,因为替换只会发生一次。

{{1}}

https://github.com/janschloss/boilerplate