[R-br] obter coordenadas do grafico via mouse interativamente ( sem locator() )

[Cleber N.Borges]

olá,

Preciso obter as coordenadas de pontos e, condicionalmente a estas
coordenadas, traçar novos graficos de forma interativa.

"locator()" não serve pq fica congelado até escolher todos pontos.
Quero que a cada 'click', gere um novo grafico.

Tentei adaptar os exemplos da função "getGraphicsEvent()"
mas ainda não entendi o funcionamento direito.

Gostaria de que fosse retornado as coordenadas de onde o usuario dar o 
'click'...

Abaixo segue o que tentei fazer.

Agradeço antecipadamente a aquem tentar ajudar
Grato.

Cleber

##############

plot( cbind(1:3,1), cex=2 )

mousedown <- function( buttons, x, y ){
x <- grconvertX(x, 'dev', 'user')
y <- grconvertY(y, 'dev', 'user')
r <- c( x,y  )
return( r )
}

setGraphicsEventHandlers(prompt="Click and drag, hit q to quit", 
onMouseDown = mousedown )

getGraphicsEvent()

##############