atualiza.grafico {arvoRe} | R Documentation |
Usage
atualiza.grafico(...)
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(...) {
.Filename <- paste(tempdir(),"\", "arvore.png", sep="")
if (!file.exists(.Filename)) file.remove(.Filename)
png(file=.Filename, width = imgWidth, height = imgHeight, bg = "white", restoreConsole = FALSE)
plot.tree(TheTree, line.type = .treeangle, show.probability = .probabilityconf,
show.payoffs = .payoffsconf, show.notes = .notesconf,
node.name.font.size = .node.name.font.size, payoffs.font.size = .payoffs.font.size,
notes.font.size = .notes.font.size)
dev.off()
image1 <- tclVar()
tcl("image","create","photo",image1,file=.Filename)
tkcreate(Canvas, "image", imgWidth/2, imgHeight/2, image = image1, anchor = "center")
tkconfigure(Canvas, scrollregion = c(0,0,imgWidth,imgHeight))
file.remove(.Filename)
tkwm.deiconify(tt)
}
[Package
arvoRe version 0.1.7
Index]