Как скрыть окно TclTk в R, пока оно рисуется

Question

TclTk отлично работает в R, просто я вижу, как виджеты помещаются в окно во время его сборки. Есть ли способ скрыть окно и показывать его только после его построения? Вставьте следующее в R, и вы увидите, что окно заполняется. Это то, что я не хочу, чтобы пользователь видел (если это возможно). Спасибо.

require(tcltk)
dlg = tktoplevel()
# command to hide window ?
for (i in 1:10) {
    l = list()
    for (i in 1:20) l[[i]]=tkbutton(dlg,text="SO")
    do.call(tkgrid,l)
}
# command to show window now it is built ?
tkwait.window(dlg)
tkdestroy(dlg)

Answer 1

У меня есть следующий шаблон в gWidgetstcltk:

library(tcltk)
tclServiceMode(FALSE)
win <- tktoplevel()
tkwm.state(win,"withdrawn") 
tclServiceMode(TRUE)

## ... do your thing then:
tkwm.state(win,"normal")

Answer 2

Вы можете просто обернуть все это в фигурные скобки.Это сработало для меня до сих пор.

Что-то вроде:

{ # Begin building window
  (code)
} # End building window