if (interactive()) {
playwith(plot(1:10, log="x"))
playState <- playDevCur()
rawXLim(playState) # -0.04 1.04
rawXLim(playState) <- c(0, 2)
playReplot(playState)
## now xlim=c(1, 100)
(rawx <- rawXLim(playState)) # -0.08 2.08
spaceCoordsToDataCoords(playState, list(x=rawx))
dataCoordsToSpaceCoords(playState, list(x=1:10))
}
Run the code above in your browser using DataLab