0 
word <- c('abc noboby@stat.berkeley.edu','text with no email','first me@mything.com also you@yourspace.com')
pattern <- '[-A-Za-z0-9_.%]+@[-A-Za-z0-9_.%]+\\.[A-Za-z]+'


getmail<-function(pattern,word){
mail<<-c()
sapply(word,function(x){
out<-gregexpr(pattern,x)
for (i in 1:length(out[[1]])){
if (out[[1]][i]>0)
mail<<-union(mail,substr(x,start=out[[1]][i],stop=out[[1]][i]+attr(out[[1]],"match.length")[i]-1))
}})
return(mail)
}

getmail(pattern,word)

[1] "noboby@stat.berkeley.edu" "me@mything.com"           "you@yourspace.com"       
ls()
[1] "getmail" "mail"    "pattern" "word"

该函数得到结果，但我觉得如果mail我运行 getmail(pattern,word) 后命名空间中没有全局变量会更好，我该如何修改它？不要删除 sapply 函数，按照我的方式做，只是不要让mail在命名空间中。

我知道我可以用更简单的方式得到结果，但我想了解更多关于函数的知识。

mail<-c()
out<-gregexpr(pattern,word)
for (i in 1:length(out)){
  for (j in 1:length(out[[i]])){
    if (out[[i]][j]>0)
    mail<-union(mail,substr(word[i],start=out[[i]][j],stop=out[[i]][j]+attr(out[[i]],"match.length")[j]-1))}}
mail
[1] "noboby@stat.berkeley.edu" "me@mything.com"           "you@yourspace.com"
4

1 回答 1

0

我可能会利用矢量化并跳过大部分循环：

> m <- gregexpr(pattern,word)
> lapply(seq_along(word),
         function(i){substring(word[i],m[[i]],m[[i]] + attr(m[[i]],"match.length"))})
[[1]]
[1] "noboby@stat.berkeley.edu"

[[2]]
[1] ""

[[3]]
[1] "me@mything.com "   "you@yourspace.com"

这让你基本上只有两条线。是的，您需要过滤掉空字符串，并可能修剪一些空白，但我认为这更干净一些。

于 2012-10-05T14:09:44.127 回答