[R] if(grep())

[Michael Lapsley]

Would anyone care to comment if this is the best solution to this problem?

> trygrep <-function(x,y)
+ if(grep(x,y))
+ print("yes") else
+ print("NO")
>  
>trygrep("foo","bafoobar")
[1] "yes"
>
> trygrep("foo","bar")
Error in if (grep(x, y)) print("yes") else print("NO") : missing value where
logical needed

My solution:

> trygrep <-function(x,y)
+ if(!is.na(grep(x,y)[1]))
+ print("yes") else
+ print("NO")
>
> trygrep("foo","bafoobar")
[1] "yes"
> trygrep("foo","bar")
[1] "NO"
> 

Regards,

Michael

This is not exactly intuitive and it took me ages to get past what should be a
very simple couple of lines.

Am I missing something more obvious?  I'm sure that if I need to do this
in 6 months time I'm not going to remember how I did it!

----------------------------------
E-Mail: Michael Lapsley <mlapsley at ndirect.co.uk>
Date: 12-Oct-99
Time: 00:04:03

This message was sent by XFMail
----------------------------------
-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._