load.file.arv {arvoRe} | R Documentation |
Usage
load.file.arv(...)
Arguments
Examples
##---- 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(...) {
if (.workstatus != "saved") {
ans <- tkmessageBox(message="Deseja salvar a árvore atual?",icon="question",type="yesnocancel",default="yes")
ans <- tclvalue(ans)
if (ans == "yes") {
save.file.arv()
}
}
fileName <- tclvalue(tkgetOpenFile(filetypes="{{ArvoRe Files} {.arv}} {{All files} *}"))
if (!nchar(fileName))
tkfocus(tt)
else {
clearTreeTkArvore(TheTree)
load(fileName, envir = .EnvironmentArvoRe)
load(fileName)
theTreeTkArvore(TheTree)
atualiza.grafico()
}
assign(".workstatus", "saved", .EnvironmentArvoRe)
assign(".opennedfile", fileName, .EnvironmentArvoRe)
titletext <- paste("ÁrvoRe - Janela Principal - [", fileName, "]", sep = "")
tkwm.title(tt, titletext)
}
[Package
arvoRe version 0.1.7
Index]