[R] lattice: How to get log base for each axis inside panel function?

[Mikhail Titov]

Hello!

I'd like to have a function to draw correct grid while using log axis with xyplot from lattice package. Right now I have the following code inside of my panel function:

lim <- current.panel.limits()
v <- latticeExtra:::logTicks(2^lim$xlim, loc=1)
h <- latticeExtra:::logTicks(2^lim$ylim, loc=1)
panel.abline(h=log2(h), v=log2(v), col="LightGray")

Is there an easy way to get log base used for particular axis to transform data so I can write general purpose panel.grid.log?

Mikhail