## 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)
# ## End(Not run)
## another idea is to use tkwm.withdraw() ... tkwm.deiconify()
Run the code above in your browser using DataLab