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