sair {ArvoRe} | R Documentation |
~~ A concise (1-5 lines) description of what the function does. ~~
sair()
~~ If necessary, more details than the description above ~~
~Describe the value returned If it is a LIST, use
comp1 |
Description of 'comp1' |
comp2 |
Description of 'comp2' |
...
....
~~further notes~~
~Make other sections like Warning with section{Warning }{....} ~
~~who you are~~
~put references to the literature/web site here ~
~~objects to See Also as help
, ~~~
##---- Should be DIRECTLY executable !! ---- ##-- ==> Define data, use random, ##-- or do help(data=index) for the standard data sets. ## The function is currently defined as function() { ReturnVal <- tkmessageBox(title = "Sair do Programa", message = "Deseja realmente sair do programa?", icon = "question", type = "yesnocancel", default = "no") if (tclvalue(ReturnVal) == "yes") { if (.workstatus == "saved") { tkdestroy(tt) } else { ReturnVal <- tkmessageBox(title = "Sair do Programa", message="Deseja salvar a árvore atual?", icon="question", type="yesnocancel", default="yes") if (tclvalue(ReturnVal) == "yes") { save.file.arv() tkdestroy(tt) } else { tkdestroy(tt) } } # clear all arvoRe objects .final.objects <- objects(envir = .EnvironmentArvoRe, all.names = TRUE) .init.objects <- get(".init.objects", .EnvironmentArvoRe) toremove.objects <- setdiff(.final.objects, .init.objects) rm(list = toremove.objects, envir = .EnvironmentArvoRe) } else tkfocus(tt) }