R equivalent of Splus peaks() function?

If there something available in R that has the
functionality of the S-PLUS peaks() function?

Thanks,

Mirka