[R] Running tcltk From a batch file

[Jonne Zutt]

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")