删除转义\ n

Question

一些数据：

x <- c("Town\ninfo@notus.com\n\n","\ninfo@notus.com\n","\ninfo@notus.com\n\n","\ninfo@notus.com\n","info@notus.com")

这可行但\n

之前有单词

gsub("\n","",x,fixed=T)

这样可行，但如果没有\n给NA

unlist(lapply(regmatches(x,gregexpr("(?<=\n).*",x,perl=TRUE)), function(x) x[1]))

编辑：期望的结果：

rep("info@notus.com",5)

Answer 1

使用gsub。

gsub("(?s)^.*?\\n|\\n.*", "", x, perl=T)