Is there an R function implementing the keccak hash algorithm?

I know that openssl and secretbase implement sha3, but I can’t find a keccak implementation on CRAN or elsewhere. Is there one?