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]