Hi Samuel,
An easy solution is the following. Let the R script wait until a certain
variable (ok_to_quit) got changed.
Hope it helps,
Jonne.
## in a file called test.R
quit <- function() {
.Tcl("set ok_to_quit 1")
tkdestroy(tt)
}
require(tcltk)
tt <<- tktoplevel()
OK.but <- tkbutton(tt,text="OK",command=quit)
tkgrid(OK.but)
tkfocus(tt)
.Tcl("set ok_to_quit 0")
.Tcl("vwait ok_to_quit")
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
