save.file.arv {arvoRe}R Documentation

Usage

save.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 ( .opennedfile == "newfile") {
                fileName <- tclvalue(tkgetSaveFile(filetypes="{{ArvoRe Files} {.arv}} {{All files} *}"))
                if (!nchar(fileName))
                        tkfocus(tt)
                else {
                        ans <- substr(fileName,nchar(fileName)-3,nchar(fileName))
                        if ( ans != ".arv" ) fileName <- paste(fileName, ".arv", sep="")
                        save(TheTree, .EnvironmentArvoRe, .modeltypeArvore, markov.propertiesMAT, file = fileName, ascii = TRUE)
                        assign(".workstatus", "saved", .EnvironmentArvoRe)
                        assign(".opennedfile", fileName, .EnvironmentArvoRe)
                        .Windowtitle <- paste("ÁrvoRe - Janela Principal", " - [", .opennedfile, "]", sep = "")
                        tkwm.title(tt, .Windowtitle)
                        tkfocus(tt)
                }
        } else {
                        fileName <- .opennedfile
                        save(TheTree, .EnvironmentArvoRe, .modeltypeArvore, markov.propertiesMAT, file = fileName, ascii = TRUE)
                        assign(".workstatus", "saved", .EnvironmentArvoRe)
                        assign(".opennedfile", fileName, .EnvironmentArvoRe)
                        .Windowtitle <- paste("ÁrvoRe - Janela Principal", " - [", .opennedfile, "]", sep = "")
                        tkwm.title(tt, .Windowtitle)
                        tkfocus(tt)             
        }
  }

[Package arvoRe version 0.1.7 Index]