The interactive window I use is "identify()"
Basically I do this;
openGraphWindow(rescale = 'fit')
plot(x)
identify(...)
graphics.off()
"openGraphWindow" <- function(...)
{
Basically I do this;
openGraphWindow(rescale = 'fit')
plot(x)
identify(...)
graphics.off()
"openGraphWindow" <- function(...)
{
winDevice = which(names(dev.list())=='windows'); # if no window device open a new one, else using the existing
if (length(winDevice)<1) {
#dev.set(1)
windows(...)
winDevice = which(names(dev.list())=='windows');
} #else
dev.set(dev.list()[winDevice]);
default_PAR_settings();