[R] Determine longest run of number

[Mark Del Cerro]

Does anybody know a way to determine the longest run of a number in a
vector of numbers?
For example if I have the following numbers: 0 0 1 1 1 1 0 1 1 0 0 0 1
1; how can I determine that the longest run of 1's = 4 and longest run
of 0's = 3?

Thanks,
Mark