https://github.com/cran/Hmisc
Tip revision: d94d986df2cb1bd6eb7f7bb1dae50853744f8d77 authored by Charles Dupont on 31 October 2007, 21:18:43 UTC
version 3.4-3
version 3.4-3
Tip revision: d94d986
zoom.s
## Function to use the mouse to zoom in on plots.
## Author: Bill Dunlap <bill@STAT.WASHINGTON.EDU>
zoom<-function(fun=usa,...)
{
on.exit(par(oldpar))
oldpar<-par(err=-1)
fun(...)
while(TRUE) {
cat("Click mouse over corners of zoom area: ")
p<-locator(n=2)
if(is.null(p$x) || length(p$x)!=2)
break
xlim<-range(p$x)
ylim<-range(p$y)
cat("xlim=",xlim,"ylim=",ylim,"\n")
fun(...,xlim=xlim,ylim=ylim)
}
cat("Bye!\n")
}