[R] pretty for a log-axis

[BXC (Bendix Carstensen)]

Is there a function that does the same as pretty but on a log-scale?

Suppose you have 

x <- exp( runif( 100, 0, 6 ) )

(which will between 1 and 403), then I would like to have a result like:

log.pretty( x )
[1] 1 5 10 50 100 500

Bendix C.
----------------------
Bendix Carstensen
Senior Statistician
Steno Diabetes Center
Niels Steensens Vej 2
DK-2820 Gentofte
Denmark
tel: +45 44 43 87 38
mob: +45 30 75 87 38
fax: +45 44 43 07 06
bxc at steno.dk
www.biostat.ku.dk/~bxc