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]