Runs up and runs down test

Can someone point me to an implementation of the "runs up and runs
down" test, or does such beast exist in R? From web searches the
"runs up and runs down" test is commonly used for testing pseudo-random
number generators and in simulations.  John C. Davis describes its use
in geology in his book on geological statistics (2002).  Having
searched the full site, I can locate only the "runs.test()" in the
tseries package.  

JWDougherty