Granger causality test?

Has anybody implemented the Granger causality test in R? The bivariate test
is just an F test for 0 values of lagged regressors and can be implemented
easily. A function that for multivariate Granger causes would require
fitting a vector autoregressive model and I'm hoping that somebody before me
has coded it!

Thanks in advance, Andy