[R] Search for longest consecutive occurrence

[tsunhin wong]

Dear R Users,

I am trying to write a script to count the longest consecutive
occurring 1 in a sequence:
test<-c(1,1,1,1,1,1,1,0,0,0,0,1,1,0,1,0,1,0,1,1)

In the case of the object "test", 1 occurs 7 consecutive times which
is the longest consecutive within the sequence.
I know I can always do a thorough from start to end search and use a
counter to count.
But, do you know there can be a smarter way to achieve this in R?

Thanks a lot!

- John