CODEWITHSUNDEEP
regexr
Roberto
Roberto

Reputation: 2990

Returning a logical vector for matches: regexp supported?

I want to return a logical vector for regexp matches over a character vector, but match or %in do not seem to support regular expressions, e.g.:

> x <- c("Bill", "Brett", "Jane")
> grep("^B", x)
[1] 1 2
> x %in% "^B"
[1] FALSE FALSE FALSE

I would like this to return 

[1] TRUE TRUE FALSE

Ideas?

Thanks,

Roberto

Upvotes: 5

Views: 3037

Answers (3)

James
James

Reputation: 66834

Use grepl:

> x <- c("Bill", "Brett", "Jane") 
> grepl("^B", x) 
[1]  TRUE  TRUE FALSE

Edit

Ooops, seems Dirk already had this further down his answer. For the sake of novelty, here's some other ways:

> ans <- rep(FALSE,length(x))
> ans[grep("^B",x)]<-TRUE
> ans
[1]  TRUE  TRUE FALSE


> 1:length(x) %in% grep("^B",x)
[1]  TRUE  TRUE FALSE

Upvotes: 1

Gavin Simpson
Gavin Simpson

Reputation: 174778

One way is just to wrap two simple steps up in a function, where we get grep() to do it's thing, but supply the indices of the elements in x as the LHS of the call to %in%:

foo <- function(x, pattern, ...) {
    seq_along(x) %in% grep(pattern, x, ...) 
}

With your example data we get:

> x <- c("Bill", "Brett", "Jane")
> foo(x, pattern = "^B")
[1]  TRUE  TRUE FALSE

Upvotes: 1

Dirk is no longer here
Dirk is no longer here

Reputation: 368201

Just chain it:

> seq(along=(x)) %in% grep("^B", x)
[1]  TRUE  TRUE  FALSE

So you could write yourself a little helper function that does both as shown here. But I presume one of the grep() variants does that as well... Ah, yes, grepl() is your friend:

> grepl("^B", x)
[1]  TRUE  TRUE  FALSE

Nothing that a quick help(grep) can't cure ;-)

Upvotes: 6

Related Questions