## see demo(tkcanvas) for an example
## Not run: ------------------------------------
# oldmode <- tclServiceMode(FALSE)
# # Do some work to create a nice picture.
# # Nothing will be displayed until...
# tclServiceMode(oldmode)
## ---------------------------------------------
## another idea is to use tkwm.withdraw() ... tkwm.deiconify()
Run the code above in your browser using DataLab