[R] Implementation of gamma function for large number

[R_help Help]

Hi - I ran into a problem when the argument to gamma function is
large. Says, if I do the following:

> gamma(17000)
[1] Inf
Warning message:
value out of range in 'gammafn'

Is there anyway to get around this or other implementation? Thank you.

-rc